Seminar Sponsor
<%
Dim SQL, SP, Website
SN = Request("SponsorName")
SQL = "SELECT * FROM ""Web Sponsors"" WHERE SponsorName = '" & SN & "'"
Set oRS = objConn.Execute(SQL)
Website = oRS("Hyperlink")
%>
|
|---|
% dim dsn dim objConn dsn="DBQ=" & Server.Mappath("../../access_db/Schedule.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open dsn %> <% Response.Buffer = True %>
|
|---|