ok, jeg har lige fået det til at virker på en lidt anden måde....se her det er den nederset kode.:
<%
' Henter værdien fra search.htm
strKeyword = Trim(Request.Form("search_keyword"))
strStilling = Trim(Request.Form("search_stilling"))
strPostNummer = Trim(Request.Form("search_postnr"))
back = Request.QueryString("back")
if not back = "true" then
session("search_keyword") = strKeyword
session("search_stilling") = strStilling
session("search_postnr") = strPostNummer
end if
searchExpression = "false"
' Hvis der er skrevet i feltet
strKeyword = Replace(strKeyword,"'","''")
strStilling = Replace(strStilling,"'","''")
strPostNummer = Replace(strPostNummer,"'","''")
' Opbygger en dynamisk SQL streng
strSQL = "SELECT id, Fornavn, Efternavn, Adresse, Postnr, Bynavn, Mobiltelefon, Telefon, mailm, Stilling FROM Kontaktpersoner"
if strKeyword <> "" then
if searchExpression = "false" then
strSQL = strSQL & " WHERE "
end if
strSQL = strSQL & " ((id LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Fornavn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Efternavn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Adresse LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Postnr LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Bynavn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Mobiltelefon LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Telefon LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (mailm LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Stilling LIKE '%" & strKeyword & "%') )"
searchExpression = "true"
end if
if strStilling <> "" then
if searchExpression = "false" then
strSQL = strSQL & " WHERE "
end if
if searchExpression = "true" then
strSQL = strSQL & " AND "
end if
strSQL = strSQL & " ( Stilling = '" & strStilling & "') "
searchExpression = "true"
end if
if strPostNummer <> "" then
if searchExpression = "false" then
strSQL = strSQL & " WHERE "
end if
if searchExpression = "true" then
strSQL = strSQL & " AND "
end if
strSQL = strSQL & " ( Postnr = '" & strPostNummer & "') "
searchExpression = "true"
end if
strSQL = strSQL & " ORDER BY Efternavn "
'hvis vi er gået tilbage så vis den gamle søgning
if back = "true" then
strSQL = session("search_sql")
end if
session("search_sql") = strSQL
session("search_position") = 0
' Open a connection to the Excel spreadsheet
Set exConn = Server.CreateObject("ADODB.Connection")
exConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("test.xls") & ";" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN
' Skaber et recordset udfra SQL strengen
Set rs = Conn.Execute(strSQL)
'Hvis der er fundet poster på søgningen
If Not (rs.BOF Or rs.EOF) Then
MedarbejderPosition = 0
Do While Not rs.EOF
' Variabler deklæres
id = rs("id")
Navn = rs("Fornavn")
Efternavn = rs("Efternavn")
Adresse = rs("Adresse")
' Generere et link, som er defineret i databasen
Link = "<a href='semedarb.asp?position="&MedarbejderPosition&"'>" & Navn & " " & Efternavn &"</a></b>"
' Udskriver linket som det blev genereret ovenfor + tilhørende kommentar
Response.Write "<li>" & Link & "</li>" & " "
MedarbejderPosition = MedarbejderPosition + 1
'Skriv til excel arket:
SQL = "INSERT INTO `brevFletkols` (fornavn, efternavn) VALUES ("
SQL = SQL & "'" & navn & "', "
SQL = SQL & "'" & efternavn & "') "
exConn.Execute(SQL)
rs.MoveNext
Loop
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<li>Sådan en har vi ikke ?"
End If
' Databaseforbindelsen lukkes
Conn.Close
Set Conn = Nothing
exConn.Close
Set exConn = Nothing %>
