update - overwrite et excel ark..
jeg laver en søgning og resultate sættes fint ind i mit excel ark "test.xls"problemmer er at hvis der vises 10 personer ved første søgning.. står de fra felt 1 - 10
laver jeg den samme søgning lige efter kommer de næste til at stå fra felt 10-20 ikke fra 1-10.
Men andre ord den skal overwrite udate hvergang...
her er koden.:
' 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;"";"
' 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("Navn2")
Efternavn = rs("Navn1")
Adresse = rs("Adresse1")
postnr = rs("Post_nr")
distrikt = rs("Distrikt")
' 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, Adresse, postnr, distrikt) VALUES ("
SQL = SQL & "'" & navn & "', "
SQL = SQL & "'" & efternavn & "', "
SQL = SQL & "'" & adresse & "', "
SQL = SQL & "'" & postnr & "', "
SQL = SQL & "'" & distrikt & "') "
exConn.Execute(SQL)
rs.MoveNext
Loop
