Hvorfor udskrives "kundenavn" ikke ?

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=d:\websider\global\comgrosinfo.dk\comgrosinfo.dk\db\usgdatabase.mdb"
Conn.Open DSN

' SQL sætning opbygges
strSQL = "Insert into usgdatabase (nummer, forhandlernavn, forhandleradr, forhandlerpostnr, forhandlerby, forhandlertele, kundenavn, kundeadr, kundepostnr, kundeby, kundetele, kundeemail, type, kundeudstyr, dato, kundefejl, datoslut, forsikring, policenr, password, retur) values('" & Request.Form("nummer") & "', '" & Request.Form("forhandlernavn") & "', '" & Request.Form("forhandleradr") & "', '" & Request.Form("forhandlerpostnr") & "', '" & Request.Form("forhandlerby") & "', '" & Request.Form("forhandlertele") & "', '" & Request.Form("kundenavn") & "', '" & Request.Form("kundeadr") & "', '" & Request.Form("kundepostnr") & "', '" & Request.Form("kundeby") & "', '" & Request.Form("kundetele") & "', '" & Request.Form("kundeemail") & "', '" & Request.Form("type") & "', '" & Request.Form("kundeudstyr") & "', '" & Request.Form("dato") & "', '" & Request.Form("kundefejl") & "', '" & Request.Form("datoslut") & "', '" & Request.Form("forsikring") & "', '" & Request.Form("policenr") & "', '" & Request.Form("password") & "', '" & Request.Form("retur") & "')"

' SQL sætning eksekveres
Conn.Execute(strSQL)



   
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
<h1>Tak vi har nu modtaget Deres registrering.</h1>

<%




' 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 FROM usgdatabase WHERE"
strSQL = strSQL & " (nummer LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandlernavn LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandleradr LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandlerpostnr 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 & "')"
' 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)

While Not rs.EOF
  Response.Write(rs("kundenavn") & "<br>")
rs.MoveNext()
Wend

If Not (rs.BOF Or rs.EOF) Then
    ' Hvis der er fundet poster på søgningen
   
    Response.Write("Der var ikke nogen kunder!")

Else
   
End If

' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>

Tror du ikke hellere der skulle stå sådan her?

//>Rune

Så udskriver den da noget (men det forkerte)
Ser ud til den henter alle "kundenavn" i DB.
Den skal kun hente den sidst indtastede (det troede jeg såmænd den gjorde når man returnerede fra en form.

Har du en løsning ?

Har selv løst problemet, point til dig med tak for hjælpen.

Anytime ;o)
Thx 4 Poinz

//>Rune