Advertiser <%
Dim id1 As Integer = 0
Dim zone1 As String = "A"
Dim type1 As String = ""
Dim override1 as Boolean = False
Dim sDIRNAME1 As String = ""
Dim sSearch1 As String = ""
Dim sKW1 As String = ""
Dim sExecPath1 As String = "/_scr/adserve.aspx?" & _
"id=" & id1 & "&" & _
"fid=16755&" & _
"zone=" & zone1 & "&" & _
"type=" & type1 & "&" & _
"override=" & override1 & "&" & _
"siteid=41&"
if len(request.form.tostring)>0 then
if not isnothing(request.form("directoryresultsearch")) then
if len(request.form("directoryresultsearch"))>0 then sSearch1=request.form("directoryresultsearch")
end if
if not isnothing(request.form("dirname")) then
if len(request.form("dirname"))>0 then sDIRNAME1=request.form("dirname")
end if
end if
if not isnothing(request("searchfor")) then sKW1=request("searchfor")
sExecPath1 &="kw=" & sKW1
if len(sDIRNAME1)>0 and len(sSearch1)>0 then
sExecPath1 &="&dn=" & sDIRNAME1 & "&" & _
"ph=" & sSearch1
end if
Server.Execute(sExecPath1)
%>
Advertiser <%
Dim id2 As Integer = 0
Dim zone2 As String = "N"
Dim type2 As String = ""
Dim override2 as Boolean = False
Dim sDIRNAME2 As String = ""
Dim sSearch2 As String = ""
Dim sKW2 As String = ""
Dim sExecPath2 As String = "/_scr/adserve.aspx?" & _
"id=" & id2 & "&" & _
"fid=16755&" & _
"zone=" & zone2 & "&" & _
"type=" & type2 & "&" & _
"override=" & override2 & "&" & _
"siteid=41&"
if len(request.form.tostring)>0 then
if not isnothing(request.form("directoryresultsearch")) then
if len(request.form("directoryresultsearch"))>0 then sSearch2=request.form("directoryresultsearch")
end if
if not isnothing(request.form("dirname")) then
if len(request.form("dirname"))>0 then sDIRNAME2=request.form("dirname")
end if
end if
if not isnothing(request("searchfor")) then sKW2=request("searchfor")
sExecPath2 &="kw=" & sKW2
if len(sDIRNAME2)>0 and len(sSearch2)>0 then
sExecPath2 &="&dn=" & sDIRNAME2 & "&" & _
"ph=" & sSearch2
end if
Server.Execute(sExecPath2)
%>
<%
Dim id3 As Integer = 0
Dim zone3 As String = "B"
Dim type3 As String = ""
Dim override3 as Boolean = False
Dim sDIRNAME3 As String = ""
Dim sSearch3 As String = ""
Dim sKW3 As String = ""
Dim sExecPath3 As String = "/_scr/adserve.aspx?" & _
"id=" & id3 & "&" & _
"fid=16755&" & _
"zone=" & zone3 & "&" & _
"type=" & type3 & "&" & _
"override=" & override3 & "&" & _
"siteid=41&"
if len(request.form.tostring)>0 then
if not isnothing(request.form("directoryresultsearch")) then
if len(request.form("directoryresultsearch"))>0 then sSearch3=request.form("directoryresultsearch")
end if
if not isnothing(request.form("dirname")) then
if len(request.form("dirname"))>0 then sDIRNAME3=request.form("dirname")
end if
end if
if not isnothing(request("searchfor")) then sKW3=request("searchfor")
sExecPath3 &="kw=" & sKW3
if len(sDIRNAME3)>0 and len(sSearch3)>0 then
sExecPath3 &="&dn=" & sDIRNAME3 & "&" & _
"ph=" & sSearch3
end if
Server.Execute(sExecPath3)
%>
