 |
|
<%
i = 0
call MakeDBConn()
set rs = server.CreateObject("ADODB.Recordset")
' rs.open("SELECT * FROM T_kfz"), strConnectionString, adOpenkeyset, adLockOptimistic
rs.open("SELECT *,*,*,*,*,*,* FROM T_Tueren RIGHT JOIN (T_Schadstoffklasse RIGHT JOIN (T_Kraftstoffart RIGHT JOIN (T_Fahrzeugart RIGHT JOIN (T_Kategorie RIGHT JOIN (T_Getriebe RIGHT JOIN T_kfz ON T_Getriebe.getriebe_id = T_kfz.kfz_getriebe) ON T_Kategorie.kategorie_id = T_kfz.kfz_kategorie) ON T_Fahrzeugart.fahrzeugart_id = T_kfz.kfz_art) ON T_Kraftstoffart.kraftstoffart_id = T_kfz.kfz_kraftstoffart) ON T_Schadstoffklasse.schadstoffklasse_id = T_kfz.kfz_schadstoffklasse) ON T_Tueren.tueren_id = T_kfz.kfz_tueren"), strConnectionString, adOpenkeyset, adLockOptimistic
if rs.recordcount > 0 then
while not rs.eof
var_kfz_id = rs("kfz_id")
var_kfz_bezeichnung = rs("kfz_marke") & " " & rs("kfz_modell")
var_ez = rs("kfz_ez")
var_km = rs("kfz_km")
var_kw = rs("kfz_leistung") & " " & rs("kfz_leistung_einheit")
var_hu = rs("kfz_hu")
var_preis = rs("kfz_preis")
'var_daten = rs("kfz_daten")
var_zubehoer = rs("kfz_zubehoer")
var_bildpfad = rs("kfz_bildpfad")
var_kategorie = rs("kategorie_klartext")
if len(var_kategorie)>0 then
if len(var_daten)>0 then
var_daten = var_daten & " | Kategorie: " & var_kategorie
else
var_daten = "Kategorie: " & var_kategorie
end if
end if
var_art = rs("fahrzeugart_klartext")
if len(var_art)>0 then
if len(var_daten)>0 then
var_daten = var_daten & " | Fahrzeugart: " & var_art
else
var_daten = "Fahrzeugart: " & var_art
end if
end if
var_getriebe = rs("getriebe_klartext")
if len(var_getriebe)>0 then
if len(var_daten)>0 then
var_daten = var_daten & " | Getriebe: " & var_getriebe
else
var_daten = "Getriebe: " & var_getriebe
end if
end if
var_kraftstoffart = rs("kraftstoffart_klartext")
if len(var_kraftstoffart)>0 then
if len(var_daten)>0 then
var_daten = var_daten & " | Kraftstoffart: " & var_kraftstoffart
else
var_daten = "Kraftstoffart: " & var_kraftstoffart
end if
end if
var_schadstoffklasse = rs("schadstoffklasse_klartext")
if len(var_schadstoffklasse)>0 then
if len(var_daten)>0 then
var_daten = var_daten & " | Schadstoffklasse: " & var_schadstoffklasse
else
var_daten = "Schadstoffklasse: " & var_schadstoffklasse
end if
end if
var_tueren = rs("tueren_klartext")
if len(var_tueren)>0 then
if len(var_daten)>0 then
var_daten = var_daten & " | Türen: " & var_tueren
else
var_daten = "Türen: " & var_tueren
end if
end if
var_farbe = rs("kfz_farbe")
if len(var_farbe)>0 then
if len(var_daten)>0 then
var_daten = var_daten & " | Farbe: " & var_farbe
else
var_daten = "Farbe: " & var_farbe
end if
end if
var_ez = rs("kfz_ez")
if len(var_ez)>0 then
if len(var_daten)>0 then
var_daten = var_daten & " | Erstzulassung: " & var_ez
else
var_daten = "Erstzulassung: " & var_ez
end if
end if
var_au = rs("kfz_au")
if len(var_au)>0 then
if len(var_daten)>0 then
var_daten = var_daten & " | AU: " & var_au
else
var_daten = "AU: " & var_au
end if
end if
var_unfall_repariert = rs("kfz_unfall_repariert")
if len(var_unfall_repariert)>0 then
if len(var_daten)>0 then
var_daten = var_daten & " | Unfall repariert: " & var_unfall_repariert
else
var_daten = "Unfall repariert: " & var_unfall_repariert
end if
end if
var_unfallschaden = rs("kfz_unfallschaden")
if len(var_unfallschaden)>0 then
if len(var_daten)>0 then
var_daten = var_daten & " | Unfallschaden: " & var_unfallschaden
else
var_daten = "Unfallschaden: " & var_unfallschaden
end if
end if
Response.Write ""
Response.Write ""
Response.Write " | "
Response.Write "" & var_kfz_bezeichnung & " | "
Response.Write "Preis | "
Response.Write " | "
Response.Write " "
Response.Write ""
if len(var_bildpfad) > 0 then
Response.Write "![]() ![]()
| "
else
Response.Write "![]() ![]()
| "
end if
Response.Write "Bj: " & var_ez & " | Km: " & var_km & " | Leistung: " & var_kw & " | HU: " & var_hu & " "
Response.Write "weitere Allgemeine Daten: "
Response.Write "" & var_daten & " "
Response.Write "Zubehör, Ausstattung, Besonderheiten: "
Response.Write "" & var_zubehoer & " | "
Response.Write "" & var_preis & " | "
if check_login(calcSHA1(session.sessionid),"") = "TRUE" then
Response.Write "![]()
"
Response.Write "![]()
"
Response.Write "![]()
"
Response.Write " | "
else
Response.Write ""
Response.Write " | "
end if
Response.Write " "
Response.Write ""
Response.Write "![]()
| "
Response.Write "![]()
| "
Response.Write "![]()
| "
Response.Write "![]()
| "
Response.Write " "
Response.Write " "
var_daten = ""
i = i + 1
rs.MoveNext
wend
else
Response.Write ""
Response.Write ""
Response.Write " | "
Response.Write " | "
Response.Write " | "
Response.Write " | "
Response.Write " "
Response.Write ""
Response.Write " "
Response.Write "![]() ![]()
| "
Response.Write " Zur Zeit ist kein Fahrzeug verfügbar. | "
Response.Write " | "
if check_login(calcSHA1(session.sessionid),"") = "TRUE" then
Response.Write "![]()
"
Response.Write " | "
else
Response.Write ""
Response.Write " | "
end if
Response.Write " "
Response.Write ""
Response.Write "![]()
| "
Response.Write "![]()
| "
Response.Write "![]()
| "
Response.Write "![]()
| "
Response.Write " "
Response.Write " "
end if
rs.close
Set rs = Nothing
Set Conn = Nothing
%>
|
|
