 |
|
|
|
<%
Set Connection = Server.CreateObject("ADODB.Connection")
cnpath="DBQ=" & server.mappath("itrucks.mdb")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath
SQLStmt = "SELECT * FROM products "
SQLStmt = SQLStmt & "WHERE (par20 Like 'y') "
SQLStmt = SQLStmt & "AND (deleter Not Like 'y') "
SQLStmt = SQLStmt & "ORDER BY datum DESC "
Set RS = Connection.Execute(SQLStmt)
%>
<%if CheckRS(RS) then%>
<%
SQLStmt1 = "SELECT * FROM parameternames "
Set RS1 = Connection.Execute(SQLStmt1)
%>
<%if CheckRS(RS1) then%>
 |
 |
 |
 |
 |
 |
 |
| Nr. |
<%=rs1("par01")%> |
<%=rs1("par02")%> |
<%=rs1("par03")%> |
<%=rs1("par04")%> |
<%=rs1("par05")%> |
<%=rs1("foto")%> |
<%CurrentRecord = 0%>
<%Do While CheckRS(RS)%>
<%id=RS("id")%>
<%idstring=mid(FormatNumber(id/10000,4,NumDigitsAfterDecimal),2,4)%>
<%imagelink="archive/" & mid(FormatNumber(id/10000,4,NumDigitsAfterDecimal),2,4) & "b.jpg"%>
<%imagesrc="archive/" & mid(FormatNumber(id/10000,4,NumDigitsAfterDecimal),2,4) & "a.jpg"%>
<%par05=rs("par05")%>
<%if IsNumeric(par05) then%>
<%par05=FormatNumber(par05,2)%>
<%end if%>
<%=CurrentRecord+1%>. |
<%=rs("par01")%> |
<%=rs("par02")%> |
<%=rs("par03")%> |
<%=rs("par04")%> |
<%=par05%> |
|
 |
<%=rs1("id")%>:
<%=idstring%>
<%=rs1("category")%>: <%=rs("category")%>
<%=rs1("par10")%>: <%=rs("par10")%> |
|
|
<%CurrentRecord = CurrentRecord + 1%>
<%RS.MoveNext%>
<%Loop%>
<%end if%>
<%end if%>
 |
[ Home |
Suche | Kontakt ]
©2003 Intertrucks Online - ein Service von R.F.K. Nutzfahrzeuge Fred Kranz
Am Brennickel 5, 06869 Coswig/Anhalt, Germany
[
TEL.:+49 34903-48-40 | FAX: +49 34903-48-410 ]
Info, Anfragen, Service + Webmaster: wb@lkwinfo.com |
 |
|

|