hej. jeg har taget det her.
<%
Option Explicit
dim pakke_nr,fra_by,til_by,afgangs_dato,afgangs_tid,ankomst_tid,fly_selskab,billet_pris,flight_nr
dim TomtFelt, i
response.write "<font style='font-family: tahoma; font-size: 12px'>"
for each i in request.form
if request.form(i) = "" then TomtFelt = true
next
if TomtFelt = false then
' alt er OK!
pakke_nr = replace(Request.Form("pakke_nr"), "'", "''")
fra_by = replace(Request.Form("fra_by"), "'", "''")
til_by = replace(Request.Form("til_by"), "'", "''")
afgangs_dato = replace(Request.Form("afgangs_dato"), "'", "''")
afgangs_tid = replace(Request.Form("afgangs_tid"), "'", "''")
ankomst_tid = replace(Request.Form("ankomst_tid"), "'", "''")
fly_selskab = replace(Request.Form("fly_selskab"), "'", "''")
billet_pris = replace(Request.Form("billet_pris"), "'", "''")
flight_nr = replace(Request.Form("flight_nr"), "'", "''")
dim Conn, DSN, strSQL
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("AnatolienRejser.mdb")
Conn.Open DSN
' SQL sætning opbygges
strSQL = "Insert into input ("
strSQL = strSQL & "pakke_nr, "
strSQL = strSQL & "fra_by, "
strSQL = strSQL & "til_by, "
strSQL = strSQL & "afgangs_dato, "
strSQL = strSQL & "afgangs_tid, "
strSQL = strSQL & "ankomst_tid, "
strSQL = strSQL & "fly_selskab, "
strSQL = strSQL & "billet_pris, "
strSQL = strSQL & "flight_nr) "
strSQL = strSQL & "values( "
strSQL = strSQL & "'" & pakke_nr & "', "
strSQL = strSQL & "'" & fra_by & "', "
strSQL = strSQL & "'" & til_by & "', "
strSQL = strSQL & "'" & afgangs_dato & "', "
strSQL = strSQL & "'" & afgangs_tid & "', "
strSQL = strSQL & "'" & ankomst_tid & "', "
strSQL = strSQL & "'" & fly_selskab & "', "
strSQL = strSQL & "'" & billet_pris & "', "
strSQL = strSQL & "'" & flight_nr & "')"
' SQL sætning eksekveres
Conn.Execute(strSQL)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
response.write "<a href='form.asp'>Tilbage til formen</a>"
response.write "<br><br>Data er gemt."
response.write "<br><br>Se <a href='source.asp'>Kildekoden/Source Code</a>"
response.write "<br><br>Hele listen (nyeste øverst):<br>"
dim rs
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("mindb.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * From tblBooking Order by id Desc"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb RecordSet (rs) med en løkke
if (not rs.bof) and (not rs.eof) then
do while not rs.eof
response.write "<hr>"
response.write "pakke_nr: " & rs("pakke_nr") & "<br>"
response.write "fra_by: " & rs("fra_by") & "<br>"
response.write "til_by: " & rs("til_by") & "<br>"
response.write "afgangs_dato: " & rs("afgangs_dato") & "<br>"
response.write "afgangs_tid: " & rs("afgangs_tid") & "<br>"
response.write "ankomst_tid: " & rs("ankomst_tid") & "<br>"
response.write "fly_selskab: " & rs("fly_selskab") & "<br>"
response.write "billet_pris: " & rs("billet_pris") & "<br>"
response.write "flight_nr: " & rs("flight_nr")
rs.movenext
loop
else
response.write "Ingen data i databasen."
end if
' Luk databaseforbindelse
rs.close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
else
response.write "Der må ikke være tomme felter!"
response.write "<br><a href='form.asp'>Tilbage til formen</a>"
end if
response.write "</font>"
%>
men den visser fejl igen men jeg trore der nogen galt med databasen!
ellers har jeg vist ikke nået at downloade alt det der
