<%
OPTION EXPLICIT
Response.Buffer = True
%>
<%
Function CATEGORY_GetDatabaseConn()
Dim oRet
Dim strDSN
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("/log/italy.mdb")
Set oRet = Server.CreateObject ("ADODB.Connection")
oRet.Open strDSN
Set CATEGORY_GetDatabaseConn = oRet
End Function
Function CATEGORY_GetAd(nNumber)
Select Case nNumber
Case 1
CATEGORY_GetAd = " "
Case 2
CATEGORY_GetAd = ""
Case 3
CATEGORY_GetAd = ""
End Select
End Function
Dim nModelId
Dim brandIDloc
nModelId = Request.QueryString("value")
If nModelId = "" Then
Response.Redirect "."
End If
Dim oCATEGORYConn, oCATEGORY
Set oCATEGORYConn = CATEGORY_GetDatabaseConn()
Set oCATEGORY = oCATEGORYConn.Execute("SELECT brand.fldAuto, brand.category_fldAuto, brand.name as brandname, brand.orderingfield, model.fldAuto, model.brand_fldAuto, model.model, model.descr, model.descr2, model.imgurl, model.img2url, model.orderingfield, model.price FROM brand INNER JOIN model ON brand.fldAuto = model.brand_fldAuto ORDER BY model.orderingfield")
Dim kr
kr = "Kr."
%>
