<%
'set up the connection
set conntemp=server.createobject("adodb.connection")
' cnpath="Server=CTCWORLDSRV1; Database=VLEARN2000; UID=vlearn3d; PWD=********"
cnpath="Server=SCICENTR1; Database=VLEARN2000; trusted_connection=true"
conntemp.Open "DRIVER={SQL Server}; " & cnpath 'open connection
sqltemp="select * from tours" 'query string
'set up recordset
set rstemp=server.CreateObject("adodb.recordset")
'open recordset
rstemp.Open sqltemp, conntemp
if rstemp.eof then
response.write "No Virtual Tour Data Uploaded Yet"
Else
Do While not rstemp.eof
contact_name= rstemp("Contact")
node= rstemp("Node")
inst= rstemp("Institution")
img_title= rstemp("Image_Title")
duke_of_url= rstemp("Image_URL")
inst_url= rstemp("Inst_URL")
AWEDU_ID= rstemp("AWEDU_ID")
if AWEDU_ID= " " then
AWEDU_ID= "None Given"
end if
World_Name= rstemp("World_Name")
if isnull(World_Name) then
World_Name= node
end if
Start_Time= rstemp("Start_Time")
Start_Loc= rstemp("Start_Loc")
'****make sure http is appended to all urls****
Set objRegExp = New RegExp
objRegExp.IgnoreCase = True
objRegExp.Pattern = "^http://"
if not (objRegExp.Test(duke_of_url)) then
duke_of_url= "http://" & duke_of_url
end if
if not (objRegExp.Test(inst_url)) then
inst_url= "http://" & inst_url
end if
response.write "Screenshot from " & World_Name & " (AWEDU ID:" & AWEDU_ID &")" & _
", sponsored by " & inst & "
"
if not isnull(start_time) then
response.write "They will be hosting an AW session on October 14th at " & Start_Time &"
"
else
response.write "They have not notified us of a time at which they will be hosting an AW session.
"
end if
rstemp.movenext
loop
End If
%>
SIGN UP TO HOST YOUR TOUR!
If you would like to host a tour of your AWEDU world,
please submit information and image links to create your tour.
Images should be available online (that is, we can display them if you send us a URL),
and 320x240 pixels in size (or some multiple thereof).
