Fejl i script
Er der nogen der kan se hvad fejlen er ?<%
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 = ""
' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, kundenr, forhandlernavn, forhandleradr, FROM forhandler WHERE"
strSQL = strSQL & " OR (kundenr LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandlernavn LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandleradr LIKE '" & strKeyword & "')"
' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\websider\global\comgrosinfo.dk\comgrosinfo.dk\db\forhandler.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)"
strSQL = strSQL & " VALUES ('" & kundenr & "', "
strSQL = strSQL & "'" & Request.Form("forhandlernavn") & "', "
strSQL = strSQL & "'" & Request.Form("forhandleradr") & "', "
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
%>
<HTML>
<HEAD>
<TITLE>Formular</TITLE>
</HEAD>
<BODY BGCOLOR="#ffffff">
<P></head> <STYLE>BODY { scrollbar-darkshadow-color: #FFFFFF;
scrollbar-shadow-color: #FFFFFF; scrollbar-3dlight-color: #FFFFFF;
scrollbar-face-color: #000000; scrollbar-arrow-color: #FFFFFF;
scrollbar-track-color: #FFFFFF; scrollbar-highlight-color: #FFFFFF; }
</STYLE></P>
<pre> <IMG SRC="http://www.comgrosinfo.dk/image_034.gif" WIDTH=174 HEIGHT=99 ALIGN=bottom>
<dl><dt>
<pre><font face="Arial, Helvetica, sans-serif" size="1"> Her kan du få tildelt et forhandler ID-nummer, som du bedes benytte til registrering af reparationer fremover.
<pre><font face="Arial, Helvetica, sans-serif" size="1"> Udfyld venligst nedenstående felter.
<FORM action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="POST" name="kundedata" onsubmit="return Formcheck()">
<P> </P><input type="hidden" name="kundenr" value="<%=kundenr%>"><input type="hidden" name="mode" value="dataform">
<pre><font face="Arial, Helvetica, sans-serif" size="1"> Navn <INPUT TYPE="text" NAME="forhandlernavn" VALUE="<%=forhandlernavn%>" SIZE=20><br>
<pre><font face="Arial, Helvetica, sans-serif" size="1"> Adresse <INPUT TYPE="text" NAME="forhandleradr" VALUE="<%=forhandleradr%>" SIZE=20><br>
<pre><font face="Arial, Helvetica, sans-serif" size="1"> <input type="submit" name="Send Data" value="Opret forhandler">
</FORM>
</BODY>
</HTML>
