|
|
|
<%
Dim objConn,objRec,objRec1,pubid
pubid=Request("ID")
pubSQL1="select * from publishers where pub_id like '%" & pubid & "'"
pubSQL="select * from titles where pub_id like '%" & pubid & "' order by title"
set objConn=Server.CreateObject ("ADODB.Connection")
set objRec=Server.CreateObject ("ADODB.Recordset")
set objRec1=Server.CreateObject ("ADODB.Recordset")
objConn.Open strConnect
objRec.Open pubSQL,objConn
objRec1.Open pubSQL1,objConn
name=objRec1("pub_name")
%>
<%="" & name &""%>
<%set objRec1=nothing%>
<%=" " & Request("City") &", " & Request("State")& ""%>
Titles: |
<%
while not objRec.EOF
Response.Write "| " & objRec("title") & " | "
objRec.MoveNext
wend
set objRec = Nothing
%>
|
