søge formular

<form method="get" action="dinside.asp">
Køn: <input type="text" name="koen"><br>
Navn: <input type="text" name="navn"><br>
Postnr: <input type="text" name="postnr"><br>
<input type="submit">
</form>

<%
If Request.ServerVariables("Query_String") <> "" Then

  Koen = Replace(Request.Querystring("koen"), "'", "''")
  Navn = Replace(Request.Querystring("navn"), "'", "''")
  Postnr = Replace(Request.Querystring("postnr"), "'", "''")

  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open("Driver={MicroSoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb"))

  Set rs = Conn.Execute("Select * From Tabel Where Koen = '" & Koen & "' And Navn Like '%" & Navn & "%' And Postnr = " & Postnr & ")
  If Not rs.EOF Then
      While Not rs.EOF
        Response.Write rs("Felt") & "<br>"
        rs.MoveNext
      Wend
  Else
      Response.Write "Ingen resultater!"
  End If

  Set rs = Nothing
  Conn.Close
  Set Conn = Nothing

End If
%>

Husk selvfølgelig at rette kolonnenavne (Koen, Navn, Postnr) og stien til databasen (database.mdb).

Ud over det er der sikkert 1000 andre ting, du gerne vil have lavet om, men her er et udgangspunkt.

får denne fejl

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/soeg/search.asp, line 19

Set rs = Conn.Execute("Select * From modeller Where Koen = '" & Koen & "' And Navn Like '%" & Navn & "%' And Postnr = " & Postnr & ")
-------------------------------------------------------------------------------------------------------------------------------------^

netro ???

nå så er du bare skredet, fedt for mig...

Fald da lidt ned - jeg kan jo ikke sidde her konstant ;o)

Den skal se således ud:

Set rs = Conn.Execute("Select * From modeller Where Koen = '" & Koen & "' And Navn Like '%" & Navn & "%' And Postnr = " & Postnr)

den kommer ikke med noget resultat !!!

Giver den fejl?

Prøv at erstatte:

Set rs = Conn.Execute("Select * From modeller Where Koen = '" & Koen & "' And Navn Like '%" & Navn & "%' And Postnr = " & Postnr)

- med:

Response.Write "Select * From modeller Where Koen = '" & Koen & "' And Navn Like '%" & Navn & "%' And Postnr = " & Postnr
Response.End

Så kan du se den forespørgsel, der bliver lavet på tabellen.

den giver bare en url med form oplysningerne !

En URL???

Du skulle gerne få noget alá:

Select * From modeller Where Koen = 'mand' And Navn Like '%Peter%' And Postnr = 2200

nej jeg får slet ikke noget af det der...

link : http://www.codevision.dk/soeg/search.asp

<form action="search.asp?1=1">

Hvad skal du med 1=1 ?

ja jeg skal da først kører koden når der trykkes søg

Det sørger følgende linie for. Så bare drop de 1-taller.

If Request.ServerVariables("Query_String") <> "" Then

jeg har jo fjernet den linie der...

Det hele ville være lidt nemmere, hvis du gør, som jeg beskriver og ikke, hvad du selv tror er rigtigt. Sæt nu den linie ind og se, hvad der sker!

lukker...

Selv tak.