|
|
|
<%
Dim objConn,objRec,objRec1,pubid
titleid=Request("Title")
pubSQL="select * from titles where title_id like '%" & titleid & "'"
set objConn=Server.CreateObject ("ADODB.Connection")
set objRec=Server.CreateObject ("ADODB.Recordset")
objConn.Open strConnect
objRec.Open pubSQL,objConn
name=objRec("title")
%>
<%=" Title: " & name &""%>
| Type |
Price |
Advance |
<%
while not objRec.EOF
Response.Write "| " & objRec("type")& " | " & objRec("price") & " | " & objRec("advance") & " | "
objRec.MoveNext
wend
set objRec = Nothing
%>
|
