Listing 3: ShowAuthor.asp
REM ---- ShowAuthor Sample
<%@ Language=VBScript %>
<%
dim sau_id
sau_id = Request.QueryString("au_id")
if sau_id = "" then
Response.Redirect "LIstAuthor.asp"
end if
%>
Author Details
<%
dim oDB
dim oRS, sSQL
dim sParams, OutArray
dim ofield
set oDB = new ADOHelper
sSQL = "RetrieveAuthor"
Begin Callout A
sParams = array(array("@au_id",adchar,AdParamInput, 11,sau_id))
set oRS = oDB.RunSPReturnRS(sSQL, sParams, OutArray)
End Callout A
do While not oRS.eof
Response.Write "First Name: " & oRS("au_fname") & "
"
Response.Write "Last Name: " & oRS("au_lname") & "
"
Response.Write "Phone Name: " & oRS("phone") & "
"
Response.Write "Address Name: " & oRS("address") & "
"
Response.Write "City Name: " & oRS("city") & "
"
Response.Write "State Name: " & oRS("state") & "
"
Response.Write "Zip Name: " & oRS("zip") & "
"
oRS.movenext
Loop
%>
Author List