|
|
|
Lab8 - Loop
Here is the output generated by the loop syntax
<%
dim objConn
dim objRec
dim strConn
storeSQL = "Select * from stores;"
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRec = Server.CreateObject("ADODB.Recordset")
objConn.Open strConnect
%>
<%
objRec.Open storeSQL, objConn
%>
<%
While Not objRec.EOF
Response.write ("")
Response.write "| "&""&"Store Name : "&""&" | "&"" &"" & objRec("stor_name") &" | "
Response.write "| "&""&"Store Address : "&""&" | " &""&""& objRec("stor_address") &", " & objRec("city") &" " & objRec("state") &" "& objRec("postalcode") & objRec("country") & "" &" | "
Response.write " "
Response.write ""
objRec.MoveNext
Wend
objRec.Close
objConn.Close
set objRec =Nothing
%>
|
