<%
OPTION EXPLICIT
Response.Buffer = True
%>
<%
Dim nModelId
nModelId = Request.QueryString("fldAuto")
If nModelId = "" Then
Response.Redirect "."
End If
Dim oCATEGORYConn, oCATEGORY
Set oCATEGORYConn = CATEGORY_GetDatabaseConn()
Set oCATEGORY = oCATEGORYConn.Execute("select model, descr, imgurl from "&CATEGORY_GetTablePrefix()&"model as model where fldAuto=" & nModelId )
%>
Paris Pittoresque
Paris
Pittoresque
<%=CATEGORY_GetAd( 1 )%>
<%=oCATEGORY("model")%>
<%=oCATEGORY("descr")%>
">
<%=CATEGORY_GetAd( 2 )%>
<%
oCATEGORY.Close
Set oCATEGORY = Nothing
oCATEGORYConn.Close
Set oCATEGORY = Nothing
%>
<%=CATEGORY_GetAd( 3 )%>