<% Response.Buffer = true Dim catid, strcat prodid = Request.QueryString("id") If prodid = "" OR (isNumeric(prodid) = false) Then Response.Redirect "ticketorderform.asp" End if 'procedure is called in the body, shows the product information sub productInfo(connObj,product) q = chr(34) set cmd = server.CreateObject("ADODB.Command") cmd.ActiveConnection = connObj cmd.CommandText = "qryProduct" cmd.CommandType = adCmdStoredProc set param = cmd.CreateParameter("prodID",adInteger,adParamInput,4) cmd.Parameters.Append(param) cmd("prodID") = Cint(product) set rsprod = server.CreateObject("ADODB.Recordset") set rsprod = cmd.Execute if not rsprod.EOF then strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "
" strHTML = strHTML & "

" & rsprod("cname") & "

" strHTML = strHTML & "" strHTML = strHTML & "

" & rsprod("cdescription") & "

" strHTML = strHTML & "

Price: " & FormatCurrency(rsprod("cprice"),2) & "
" strHTML = strHTML & "

" strHTML = strHTML & "" strHTML = strHTML & "Quantity: " & vbcrlf strHTML = strHTML & "" strHTML = strHTML & "
" else strHTML = "Product information not found." end if rsprod.Close set rsprod = nothing set cmd = nothing Response.Write strHTML end sub %> All florida tickets-Product information
attraction tickets at low prices
email us for ticket information

Reserved for advertising / links etc..
 
<% 'on error resume next call openConn() 'if dbc.errors.count > 0 then 'Response.Write "Error accessing database." 'Response.write "Open" 'else call productInfo(dbc,prodid) 'end if call closeConn() %>