Avatar billede danskeb Nybegynder
20. august 2002 - 15:05 Der er 3 kommentarer og
1 løsning

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>&nbsp;</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>
Avatar billede aspbuilder Nybegynder
20. august 2002 - 15:06 #1
Skriver den en fejl, så kunne man måske indskærpe det lidt?
Avatar billede hirayz Nybegynder
20. august 2002 - 15:15 #2
Jeg ville mene at fejlen ligger her

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 & "')"

Den skal nok se sådan ud

strSQL = "SELECT ID, kundenr, forhandlernavn, forhandleradr, FROM forhandler WHERE"

strSQL = strSQL & " (kundenr LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandlernavn LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandleradr LIKE '" & strKeyword & "')"
Avatar billede hirayz Nybegynder
20. august 2002 - 15:15 #3
eller sådan
strSQL = "SELECT ID, kundenr, forhandlernavn, forhandleradr FROM forhandler WHERE"

strSQL = strSQL & " (kundenr LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandlernavn LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandleradr LIKE '" & strKeyword & "')"
Avatar billede danskeb Nybegynder
21. august 2002 - 13:50 #4
Ingen løsning, lukkes
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester