<%@ LANGUAGE = "VBScript" %>
<% Response.Expires=0 %>
<%'### Variablen
Dim rst'### Datensatzzeiger
Dim SQL '### SQL Anweisung
Dim T'### Text
Dim z'### Zähler
Dim intID'### SpielID
Dim dtmWork'### Letztes Update
intID = Request("id")
z=0
'### Datenbank öffnen
Set db = Server.CreateObject("ADODB.Connection")
db.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/db/computer.mdb")
'######################################## SUBs ##################################################################
Sub GoUpdate
SQL = " SELECT MAX(Datum) AS Neu"
SQL = SQL & " FROM Liste"
SQL = SQL & " WHERE system = 1"
set rst = db.Execute(SQL)
dtmWork = Left(rst("Neu"),10)
rst.Close
End Sub
Sub CreateSQL
SQL = " SELECT *"
SQL = SQL & " FROM Liste"
SQL = SQL & " WHERE system = 1"
set rst = db.Execute(SQL)
End Sub
'###############################################################################################################%>
Vidospielarchiv: Sega Saturn
<%'### News ausgeben
CreateSQL
Do Until rst.EOF
If rst("ID") = CInt(intID) Then%>
<%ElseIf z=0 Then
z=1%>
<%Else
z=0%>
<%End If
rst.MoveNext
Loop
rst.Close
db.Close
Set rst=Nothing
Set db=Nothing%>
| Das Sega Saturn Archiv Bitte aus der Liste einen Titel aussuchen.
<%'### Update
GoUpdate%>
letztes Update: <%=dtmWork%> |
| Titel | Hersteller | Art | Note |
| <%=rst("Titel")%>
Entwickler: <%=rst("Entwickler")%>
Jahr: <%=rst("Jahr")%>
<%'### Note vorhanden
If rst("Note") > 0 Then%>
|
|||
| Version: <%=rst("version")%> | |||
"><%=rst("Titel")%> <%If Left(rst("Datum"),10)=dtmWork Then%> <%End If%> |
<%=rst("Entwickler")%> | <%=rst("Art")%> |
<%'### Note vorhanden
If rst("Note") > 0 Then%>
|
| "><%=rst("Titel")%> <%If Left(rst("Datum"),10)=dtmWork Then%><%End If%> |
<%=rst("Entwickler")%> | <%=rst("Art")%> |
<%'### Note vorhanden
If rst("Note") > 0 Then%>
|