hvordan sletter jeg data på et excel ark der ligger på min server

Flg. kode kræver, at web-serveren har Excel installeret:

<%

Set objXls = CreateObject("Excel.Application")
strFile = "c:\inetpub\wwwroot\myfile.xls"

objXls.Workbook.Open strFile

' Slet data fra celle A1
objXls.ActiveSheet.Range("A1") = ""

objXls.Quit
Set objXls = Nothing

%>

den er vist  installeret for jeg kan skrive til den...
<%

Set objXls = CreateObject("Excel.Application")
strFile = "c:\inetpub\wwwroot\test.xls"

objXls.Workbook.Open strFile

' Slet data fra celle A1
objXls.ActiveSheet.Range("b1") = ""

objXls.Quit
Set objXls = Nothing

%>
<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
%>



<center><FONT SIZE="5" COLOR="#FF0000"><b>Find en Medarbejdere der skal flettes  .</center></FONT></B><BR>
<center>
<TABLE>
    <form action="fletsearch.asp" method="post">
<TR>
    <TD><input type="text" name="search_keyword" class="Formindhold" size="20" value="<% response.write session("search_keyword")%>">
</TD>
</TR>

<%

strSQL = "SELECT DISTINCT(Arbejdsfunktion) AS MedArbStilling FROM medarb"

' Databaseforbindelse [DNSless] - Stien til databasen lokaliseres
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)


%>
<TR>
    <TD>
        <select name="search_stilling">
            <option value=""></option>
            <%
                do while not rs.EOF
               
            %>
          <option <% if rs("MedArbStilling") = session("search_stilling") then response.write "selected" end if %> value="<% Response.write rs("MedArbStilling") %>"><% Response.write rs("MedArbStilling") %></option>
      <%
              rs.MoveNext
     
          loop
           
            %>
    </select>
  </TD>
</TR>
<TR>
    <TD>
        <select name="search_Funktion">
            <option value="Orange scene">Orange scene</option>
   
    </select>
    </TD>             
</TR>
<TR>
    <TD>
        <select name="search_postnr">
            <option value=""></option>
      <option value="4000">4000</option>
      <option value="5000">5000</option>
    </select>
    </TD>             
</TR>
<TR>
    <TD><input type="submit" value="[Søg]" class="knap"></TD>
</TR>
</form>
</TABLE>

Microsoft VBScript runtime error '800a01ad'

ActiveX component can't create object: 'Excel.Application'

/ros/fletsearch_start.asp, line 105

105= Set objXls = CreateObject("Excel.Application")

Er du helt sikker på, at Excel er installeret?

jamen hvis jeg kan skrive til det excel ark jeg har liggende er det vel eller hvad ?

Hvordan ser koden ud, der skriver til regnearket?

' 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("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='osemedarb.asp?position="&MedarbejderPosition&"'>"  & Navn & "&nbsp;" & 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)

I ovenstående kode bruger du ADO til at få forbindelse til Excel-regnearket. Så vidt jeg ved, arbejder ADO udenom Excel. Dvs. Excel behøver ikke at være installeret på maskinen for at få adgang til regnearkets data.

Når du bruger ADO til at hente data fra et Excel-ark, bruger du SQL-forespørgsler. Du kan også bruge SQL-forespørgsel når du vil slette data i regnearket. Eks:

  strSQL = "DELETE FROM 'brevFletkols' WHERE navn = 'Madam'"
  exConn.Execute(strSQL)

Problemet er bare, at du ikke har fuldstændig kontrol over dit regne-ark.

kan jeg slette fra "B1" og nedefter ?

Jeg ved ikke med sikkerhed om man kan slette en hel kollonne på én gang med ADO. Men du kan lave en løkke der sletter f.eks. data fra efternavn:

strSQL "SELECT efternavn FROM 'brevFletkols'"
Set xRs = exConn.Execute(strSQL)

While Not .EOF
  xRs("efternavn") = ""
  xRs.MoveNext
Wend

Hvorfor bruger du ikke en database i stedet? Det er meget nemmere, at opbevare data i en database end det er i et regneark.

fordi det skal bruge som en brevflet.. altså sekratæren laver en søgning fordi alle medarbejder i 4000 Roskilde skal have et brev... så søgningsresultatet skal ind i et excel ark som hun så gemmer på skrivebordet og kan flette det ind i et word doc.

denne her virker ikke så godt hvad har jeg gjort forkert ?

<%' 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

strSQL "SELECT efternavn FROM 'brevFletkols'"
Set xRs = exConn.Execute(strSQL)

While Not .EOF
  xRs("efternavn") = ""
  xRs.MoveNext
Wend
%>

Man kan godt lave en fletning i Word som henter dataene fra en Access-database. Det er meget nemmere end at vedligeholde data to steder.

jamen den er jeg med på hvordan ?

Sådan gør du:

Word > Funktioner > Brevfletning...
Opret > Standardbreve... > Nyt hoveddokument
Hent data > Åbn datakilde... > Find databasen og klik på Åbn
Når dialogboksen Microsoft Access dukker op, vælg en tabel og klik OK
Nu får du: "Word fandt ingen felter...". Klik på Rediger hoveddokument
Indsæt felterne i dokumentet og flet dataene.

jeg tror jeg er med så langt.. men pigerne laver en søgning på nettet og ligger så den data ind i en access db, godt så den ligger jo på mit webhotel så den skal ned på deres lokale pc korrekt ?

Nu kan de ikke lige så godt finde ud af det med FTP osv...

men hvis Excel er installeret i mint webhotel kan din kode så virke ?

for jeg tror det er nemmerste at lige slette al data og så skriver den i excel igen..

Håber ikke du er blevet al for træt af mig.. :-)

det er ærgelig jeg ikke kan få 05/08-2003 10:08:06 til at virke... for så var vi kørene...

Ok. Prøv at lave en tom ASP-dokument med flg. indhold:

<%
' 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;"";"

strSQL "SELECT efternavn FROM 'brevFletkols'"
Set xRs = exConn.Execute(strSQL)

While Not .EOF
  Response.Write(xRs("efternavn") & "<br>")
  xRs.MoveNext
Wend

xRs.Close
exConn.Close
Set xRs = Nothing
Set exConn = Nothing

%>

Kør siden i webserveren og se hvad der sker...

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'strSQL'

/ros/p.asp, line 8

linie 8 = strSQL "SELECT efternavn FROM 'brevFletkols'"

Prøv linje 8 om til
strSQL = "SELECT efternavn FROM 'brevFletkols'"

Microsoft JET Database Engine error '80040e14'

Syntax error in query. Incomplete query clause.

/ros/p.asp, line 10

linie 10 = Set xRs = exConn.Execute(strSQL)

hele 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;"";"


strSQL = "SELECT efternavn FROM 'brevFletkols'"
Set xRs = exConn.Execute(strSQL)

While Not .EOF
  Response.Write(xRs("efternavn") & "<br>")
  xRs.MoveNext
Wend

xRs.Close
exConn.Close
Set xRs = Nothing
Set exConn = Nothing

%>

Prøv flg:

<%
' Open a connection to the Excel spreadsheet
Set exConn = Server.CreateObject("ADODB.Connection")
exConn.Provider = "Microsoft.Jet.OLEDB.4.0"
exConn.ConnectionString = "Data Source=" & Server.MapPath("test.xls") & "; Extended Properties=""Excel 8.0;HDR=Yes;"


strSQL = "SELECT * FROM [Sheet1$]"
Set xRs = exConn.Execute(strSQL)

While Not .EOF
  Response.Write(xRs(0) & "<br>")
  xRs.MoveNext
Wend

xRs.Close
exConn.Close
Set xRs = Nothing
Set exConn = Nothing

%>

Eller prøv at læse
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnasdj01/html/asp0193.asp
http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q195/9/51.ASP&NoWebContent=1

har læst det, men syntes ikke der står noget om at slette ?

ADODB.Connection error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/ros/p.asp, line 7

lini 7 = exConn.ConnectionString = "Data Source=" & Server.MapPath("test.xls") & "; Extended Properties=""Excel 8.0;HDR=Yes;"

linie 7 skal se sådan ud:

exConn.ConnectionString = "Data Source=" & Server.MapPath("test.xls") & "; Extended Properties=Excel 8.0;HDR=Yes;"

ADODB.Connection error '800a0e78'

Operation is not allowed when the object is closed.

/ros/p.asp, line 11

line 11= Set xRs = exConn.Execute(strSQL)

<%
' Open a connection to the Excel spreadsheet
Set exConn = Server.CreateObject("ADODB.Connection")
exConn.Provider = "Microsoft.Jet.OLEDB.4.0"
exConn.ConnectionString = "Data Source=" & Server.MapPath("test.xls") & "; Extended Properties=Excel 8.0;HDR=Yes;"


strSQL = "SELECT * FROM [Sheet1$]"
Set xRs = exConn.Execute(strSQL)

While Not .EOF
  Response.Write(xRs(0) & "<br>")
  xRs.MoveNext
Wend

xRs.Close
exConn.Close
Set xRs = Nothing
Set exConn = Nothing

%>

Prøv med

<%
' Open a connection to the Excel spreadsheet
Set exConn = Server.CreateObject("ADODB.Connection")
exConn.Provider = "Microsoft.Jet.OLEDB.4.0"
exConn.ConnectionString = "Data Source=" & Server.MapPath("test.xls") & "; Extended Properties=Excel 8.0;HDR=Yes;"
exConn.Open


strSQL = "SELECT * FROM [Sheet1$]"
Set xRs = exConn.Execute(strSQL)

While Not .EOF
  Response.Write(xRs(0) & "<br>")
  xRs.MoveNext
Wend

xRs.Close
exConn.Close
Set xRs = Nothing
Set exConn = Nothing

%>

Microsoft JET Database Engine error '80004005'

Could not find installable ISAM.

/ros/p.asp, line 8

linie 8 = exConn.Open

Hmm... Prøv at lave linjen
exConn.ConnectionString = "Data Source=" & Server.MapPath("test.xls") & "; Extended Properties=Excel 8.0;HDR=Yes;"

Om til
exConn.ConnectionString = "Data Source=" & Server.MapPath("test.xls") & ";Extended Properties=Excel 8.0;"

så kom vi lidt længere : -)

Microsoft JET Database Engine error '80004005'

'Sheet1$' is not a valid name. Make sure that it does not include invalid characters or punctuation and that it is not too long.

/ros/p.asp, line 12

linie 12 = Set xRs = exConn.Execute(strSQL)



<%
' Open a connection to the Excel spreadsheet
Set exConn = Server.CreateObject("ADODB.Connection")
exConn.Provider = "Microsoft.Jet.OLEDB.4.0"
exConn.ConnectionString = "Data Source=" & Server.MapPath("test.xls") & ";Extended Properties=Excel 8.0;"
exConn.Open


strSQL = "SELECT * FROM [Sheet1$]"
Set xRs = exConn.Execute(strSQL)

While Not .EOF
  Response.Write(xRs(0) & "<br>")
  xRs.MoveNext
Wend

xRs.Close
exConn.Close
Set xRs = Nothing
Set exConn = Nothing

%>

Prøv at erstatte [Sheet1$] med arkets navn sådan her:

  strSQL = "SELECT * FROM [ARKETs NAVN]"

Hvis arket hedder Ark1 skriver du flg:

  strSQL = "SELECT * FROM [Ark1]"

Microsoft JET Database Engine error '80040e37'

The Microsoft Jet database engine could not find the object 'Ark1'. Make sure the object exists and that you spell its name and the path name correctly.

/ros/p.asp, line 12

<%
' Open a connection to the Excel spreadsheet
Set exConn = Server.CreateObject("ADODB.Connection")
exConn.Provider = "Microsoft.Jet.OLEDB.4.0"
exConn.ConnectionString = "Data Source=" & Server.MapPath("test.xls") & ";Extended Properties=Excel 8.0;"
exConn.Open


strSQL = "SELECT * FROM [Ark1]"
Set xRs = exConn.Execute(strSQL)

While Not .EOF
  Response.Write(xRs(0) & "<br>")
  xRs.MoveNext
Wend

xRs.Close
exConn.Close
Set xRs = Nothing
Set exConn = Nothing

%>

Jamen hedder dit ark Ark1?

ja det gør det...

http://www.kriegbaum.dk/ros/test.xls

nu går det bedre...:

Microsoft VBScript runtime error '800a01f9'

Invalid or unqualified reference

/ros/p.asp, line 14

linie 14 = While Not .EOF


<%
' Open a connection to the Excel spreadsheet
Set exConn = Server.CreateObject("ADODB.Connection")
exConn.Provider = "Microsoft.Jet.OLEDB.4.0"
exConn.ConnectionString = "Data Source=" & Server.MapPath("test.xls") & ";Extended Properties=Excel 8.0;"
exConn.Open


strSQL = "SELECT * FROM `brevFletkols`"
Set xRs = exConn.Execute(strSQL)

While Not .EOF
  Response.Write(xRs(0) & "<br>")
  xRs.MoveNext
Wend

xRs.Close
exConn.Close
Set xRs = Nothing
Set exConn = Nothing

%>

Prøv med der i stedet:

While Not xR.EOF

Microsoft VBScript runtime error '800a01a8'

Object required: 'xR'

/ros/p.asp, line 14

<%
' Open a connection to the Excel spreadsheet
Set exConn = Server.CreateObject("ADODB.Connection")
exConn.Provider = "Microsoft.Jet.OLEDB.4.0"
exConn.ConnectionString = "Data Source=" & Server.MapPath("test.xls") & ";Extended Properties=Excel 8.0;"
exConn.Open


strSQL = "SELECT * FROM `brevFletkols`"
Set xRs = exConn.Execute(strSQL)

While Not xR.EOF
  Response.Write(xRs(0) & "<br>")
  xRs.MoveNext
Wend

xRs.Close
exConn.Close
Set xRs = Nothing
Set exConn = Nothing

%>

nu kører den igennem men sletter ikke noget ?

<%
' Open a connection to the Excel spreadsheet
Set exConn = Server.CreateObject("ADODB.Connection")
exConn.Provider = "Microsoft.Jet.OLEDB.4.0"
exConn.ConnectionString = "Data Source=" & Server.MapPath("test.xls") & ";Extended Properties=Excel 8.0;"
exConn.Open


strSQL = "SELECT * FROM `brevFletkols`"
Set xRs = exConn.Execute(strSQL)

While Not xRs.EOF
  Response.Write(xRs(0) & "<br>")
  xRs.MoveNext
Wend

xRs.Close
exConn.Close
Set xRs = Nothing
Set exConn = Nothing

%>

Ovenstående kode sletter ikke nogen data fra Excel-filen. Det eneste koden gør, er, at den henter alle de data der er i regnearket og udskriver dem på siden:

strSQL = "SELECT * FROM `brevFletkols`"
...
Response.Write(xRs(0) & "<br>")

Hvis du skal slette en hel række ad gangen, skal du udføre flg. SQL-sætning i Excel-arket:

strSQL = "DELETE FROM `brevFletkols` WHERE efternavn = 'Børgesen'"

Hvis SQL ikke siger dig noget, kan du læse mere om emnet på http://www.w3schools.com/sql/default.asp

jeg skal slette alt på arket på nær a1,b1,c1,d1,e1

hvordan får jeg flettet det ind i .:

strSQL = "DELETE FROM `brevFletkols` WHERE efternavn = 'Børgesen'"

vi er tæt på nu :-)

Prøv at erstatte

strSQL = "SELECT * FROM `brevFletkols`"

med

strSQL = "DELETE FROM `brevFletkols`"

Microsoft JET Database Engine error '80004005'

Deleting data in a linked table is not supported by this ISAM.

/ros/p.asp, line 12

lini 12= Set xRs = exConn.Execute(strSQL)



<%
' Open a connection to the Excel spreadsheet
Set exConn = Server.CreateObject("ADODB.Connection")
exConn.Provider = "Microsoft.Jet.OLEDB.4.0"
exConn.ConnectionString = "Data Source=" & Server.MapPath("test.xls") & ";Extended Properties=Excel 8.0;"
exConn.Open


strSQL = "DELETE FROM `brevFletkols`"
Set xRs = exConn.Execute(strSQL)

While Not xRs.EOF
  Response.Write(xRs(0) & "<br>")
  xRs.MoveNext
Wend

xRs.Close
exConn.Close
Set xRs = Nothing
Set exConn = Nothing

%>

strSQL = "DELETE FROM `brevFletkols` WHERE efternavn = 'Nielsen'"

kan jeg heller ikke få til at virke

den laver den der ISAM fejl, måske kan man slet ikke slette ?

hej er vi ved at være der hvor vi ikke kan komme videre ????

Jeg vil så gerne have det til at virke

Jeg har ikke lige haft tid til at kigge på det.

Fra http://support.microsoft.com/default.aspx?scid=kb;EN-US;q257819

<rip>
You are more restricted in deleting Excel data than data from a relational data source. In a relational database, "row" has no meaning or existence apart from "record"; in an Excel worksheet, this is not true. You can delete values in fields (cells). However, you cannot: Delete an entire record at once or you receive the following error message:

"Deleting data in a linked table is not supported by this ISAM."

You can only delete a record by blanking out the contents of each individual field.
</rip>


Prøv i stedet med:

<%
' Open a connection to the Excel spreadsheet
Set exConn = Server.CreateObject("ADODB.Connection")
exConn.Provider = "Microsoft.Jet.OLEDB.4.0"
exConn.ConnectionString = "Data Source=" & Server.MapPath("test.xls") & ";Extended Properties=Excel 8.0;"
exConn.Open

strSQL = "UPDATE `brevFletkols` kollonne1='', kollonne2='' WHERE kollonne2='værdi'"
exConn.Execute(strSQL)

exConn.Close
Set exConn = Nothing
%>

lyder rigtigt..!

Microsoft JET Database Engine error '80040e14'

Syntax error in UPDATE statement.

/ros/p.asp, line 12

linie=12 exConn.Execute(strSQL)

SQL-forespørgslen skal se sådan ud:
strSQL = "UPDATE `brevFletkols` SET kollonne1='', kollonne2='' WHERE kollonne2='værdi'"

Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters.

/ros/p.asp, line 12

<%
' Open a connection to the Excel spreadsheet
Set exConn = Server.CreateObject("ADODB.Connection")
exConn.Provider = "Microsoft.Jet.OLEDB.4.0"
exConn.ConnectionString = "Data Source=" & Server.MapPath("test.xls") & ";Extended Properties=Excel 8.0;"
exConn.Open


strSQL = "UPDATE `brevFletkols` SET kollonne1='', kollonne2='' WHERE kollonne2='værdi'"
exConn.Execute(strSQL)

exConn.Close
Set exConn = Nothing
%>

Du skal lige huske at erstatte KOLLONNE1 og KOLLONNE2 med dine egne kollonner. Du kan læse om SQL på http://www.w3schools.com/sql/default.asp

godt så her skulle den gerne sige at den skal sætte værdien til "" i kollonne A1 hvis der er værdi i kollonne a1 ik ?

<%
' Open a connection to the Excel spreadsheet
Set exConn = Server.CreateObject("ADODB.Connection")
exConn.Provider = "Microsoft.Jet.OLEDB.4.0"
exConn.ConnectionString = "Data Source=" & Server.MapPath("test.xls") & ";Extended Properties=Excel 8.0;"
exConn.Open


strSQL = "UPDATE `brevFletkols` SET kollonneA1='' WHERE kollonneA1='værdi'"
exConn.Execute(strSQL)

exConn.Close
Set exConn = Nothing
%>

Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters.

/ros/p.asp, line 12

jeg har denne kode der skriver fint i excelarket hvordan kan jeg få den lavet om til at overwrite/blanke out ?

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("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='osemedarb.asp?position="&MedarbejderPosition&"'>"  & Navn & "&nbsp;" & 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

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 %>

nu har jeg den.. men hvordan får jeg laver "babera" om til bare der er noget skrevet i feltet ?

<%
' Open a connection to the Excel spreadsheet
Set exConn = Server.CreateObject("ADODB.Connection")
exConn.Provider = "Microsoft.Jet.OLEDB.4.0"
exConn.ConnectionString = "Data Source=" & Server.MapPath("test.xls") & ";Extended Properties=Excel 8.0;"
exConn.Open


strSQL = "UPDATE `brevFletkols` SET fornavn='' WHERE fornavn='Barbara'"
exConn.Execute(strSQL)

exConn.Close
Set exConn = Nothing
%>

Huh? Jeg forstår ikke, hvad det er du vil.