<% Dim time,ID2 time = Date ID2=Session("ID") %>
Welcome to the WestSide Store Seminar Registration page
*
click ctrl button when choosing multiple seminars
Name:
Company:
Address:
City:
Zip :
Phone:
Fax :
Email :
Choose Seminars you are interested in
<% Dim strq,name,Password,ConnObj,RstObj Set ConnObj=Server.CreateObject("ADODB.Connection") ConnObj.Open "DSN=wes173.westsidematerials;Database=westsidematerials;" Set RstObj=Server.CreateObject("ADODB.RecordSet") strq= "SELECT * FROM SeminarInfo where cDate(Date) >" strq= strq & Date strq= strq & " ;" RstObj.Open strq, ConnObj, 3,3 While Not RstObj.EOF %>
" name=" <% =Response.Write (RstObj("Title"))%> "> <% =Response.Write (RstObj("Title"))%> ---$<% =Response.Write (RstObj("cost"))%>---<% =Response.Write (RstObj("Date"))%>
<% RstObj.MoveNext Wend RstObj.Close ConnObj.Close %>
:
Signature:
Date:
size="18" disabled>
