zbs:
Jeg kan ikke få det til at virke, kan du se hvad der er galt:
Den gemmer data, men jeg kan ikke skrive dem på skærmen.
<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\websider\global\comgrosinfo.dk\comgrosinfo.dk\db\forhandler.mdb"
Set rs = Server.CreateObject("ADODB.Recordset")
kundenr = ""
forhandlernavn = ""
forhandleradr = ""
forhandlerpostnr = ""
forhandlerby = ""
forhandlertele = ""
forhandleremail = ""
forhandlerkontakt = ""
forhandlerhardware = ""
forhandlersystemhus = ""
forhandlerandet = ""
forhandlerstart = ""
forhandleransat = ""
forhandlervaerksted = ""
forhandlerusg = ""
' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, nummer, forhandlernavn, forhandleradr, forhandlerpostnr, forhandlerby, forhandlertele, kundenavn, kundeadr, kundepostnr, kundeby, kundetele, kundeemail, type, kundeudstyr, dato, kundefejl, kunderep, kundepris, status, datoslut, policenr, password, retur FROM usgdatabase WHERE"
strSQL = strSQL & " (nummer LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandlernavn LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandleradr LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (policenr LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandlerby LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandlertele LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundenavn LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundeadr LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundepostnr LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundeby LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundetele LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundeemail LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (type LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundeudstyr LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (dato LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundefejl LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (datoslut LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (policenr LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (password LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (retur LIKE '" & strKeyword & "')"
' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\websider\global\comgrosinfo.dk\comgrosinfo.dk\db\usgdatabase.mdb"
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
if Request.Form("mode") = "dataform" then
if Request.Form("kundenr") = "" then
kundenr = Left(forhandlernavn,3) & Left(forhandleradr,3)
strSQL = "INSERT INTO kunder (kundenr, forhandlernavn, forhandleradr, forhandlerpostnr, forhandlerby, forhandlertele, forhandleremail, forhandlerkontakt, forhandlerhardware, forhandlersystemhus, forhandlerandet, forhandlerstart, forhandleransat, forhandlervaerksted, forhandlerusg)"
strSQL = strSQL & " VALUES ('" & kundenr & "', "
strSQL = strSQL & "'" & Request.Form("forhandlernavn") & "', "
strSQL = strSQL & "'" & Request.Form("forhandleradr") & "', "
strSQL = strSQL & "'" & Request.Form("forhandlerpostnr") & "', "
strSQL = strSQL & "'" & Request.Form("forhandlerby") & "', "
strSQL = strSQL & "'" & Request.Form("forhandlertele") & "', "
strSQL = strSQL & "'" & Request.Form("forhandleremail") & "', "
strSQL = strSQL & "'" & Request.Form("forhandlerkontakt") & "', "
strSQL = strSQL & "'" & Request.Form("forhandlerhardware") & "', "
strSQL = strSQL & "'" & Request.Form("forhandlersystemhus") & "', "
strSQL = strSQL & "'" & Request.Form("forhandlerandet") & "', "
strSQL = strSQL & "'" & Request.Form("forhandlerstart") & "', "
strSQL = strSQL & "'" & Request.Form("forhandleransat") & "', "
strSQL = strSQL & "'" & Request.Form("forhandlervaerksted") & "', "
strSQL = strSQL & "'" & Request.Form("forhandlerusg") & "')"
Conn.Execute (strSQL)
Response.Write "<table border=0>"
Response.Write "<th>Dit forhandler nummer er:</th>"
Response.Write "<tr><b><td>" & kundenr & "</td></b></tr>"
Response.Write rs("forhandlernavn")
Response.End
end if
end if
Conn.Close
%>
