hej .. jeg har nu lagt test.xls på min server i samme mappe fint og jeg har skrevet fornavn i a1 feltet og efternavn i b1 feltet.. det skulle være iorden...
men jeg får en fejl.. her er hele koden til siden..
<% Response.Buffer = True %>
<%
Session("sessionnavn") = "Rune"
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>Medarbejdere</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD><style type="text/css">
div.clSlideMenu0{ /* All slideMenu2 DIV elements */
position:absolute;
font-family:verdana,arial,helvetica;
font-size:10px;
overflow:hidden;
height:22;
background-color:#FFCD32;
}
div.clSlideMenu1{ /* All slideMenu2 DIV elements */
position:absolute;
font-family:arial,helvetica;
font-size:20px;
overflow:hidden;
height:22;
background-color:#FFCD32;
}
div.clSlideMenu2{ /* All slideMenu2 DIV elements */
position:absolute;
font-family:arial,helvetica;
font-size:20px;
overflow:hidden;
height:22;
background-color:green;
}
div.clSlideMenu3{ /* All slideMenu2 DIV elements */
position:absolute;
font-family:arial,helvetica;
font-size:20px;
overflow:hidden;
height:22;
background-color:silver;
}
div.clSlideMenu4{ /* All slideMenu2 DIV elements */
position:absolute;
font-family:arial,helvetica;
font-size:20px;
overflow:hidden;
height:22;
background-color:navy;
}
a.clA0{ /* All top level links */
color:red;
font-size:12px;
text-decoration:none;
font-weight:bold;
}
a.clA1{ /* All sub level links */
color:red;
font-size:12px;
font-weight:bold;
text-decoration:none;
}
a.clA2{ /* All sub2 level links */
color:navy;
text-decoration:none;
}
a.clA3{ /* All sub3 level links */
color:white;
text-decoration:none;
}
a.clA4{ /* All sub4 level links */
color:green;
text-decoration:none;
}
span.clArrow{
font-family:webdings;
}
/* NEEDED STYLES */
div.slideMenuBG{position:absolute; left:0; top:0; z-index:1}
div.slideMenuText{position:absolute; left:2; top:2; text-align:left; z-index:200}
#slideMenucont{position:absolute; width:120; visibility:hidden;}
</style>
<script language="JavaScript" src="slidemenu.js" type="text/javascript">
/**********************************************************************************
SlideMenu 2.0
* Copyright (C) 2002 Thomas Brattli
* This script was released at DHTMLCentral.com
* Visit for more great scripts!
* This may be used and changed freely as long as this msg is intact!
* We will also appreciate any links you could give us.
*
* Made by Thomas Brattli
*
*Script date: 08/05/2002 (keep this date to check versions)
*********************************************************************************/
</script>
</head>
<link rel="stylesheet" type="text/css" href="ccs.txt">
<BODY marginleft="0" bgcolor="white" marginheight="0">
<%
' 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
%>
<table cellSpacing="1" cellPadding="0" width="900" align="center" bgcolor="#FFF5D7" border="0" >
<TR>
<TD><table cellSpacing="1" cellPadding="0" width="900" align="center" bgcolor="#FFFAEB" border="0" >
<tr>
<td colspan="3" bgcolor="#FFCD32" height="60" ><a href="default.asp"><FONT SIZE="6" COLOR="#ffffff">Medarbejdere</FONT></td>
</tr>
<tr>
<td width="150" height="550" bgcolor="#FFF5D7" valign="bottom"><IMG SRC=".jpg" BORDER="0" ALT=""></td>
<td valign="top" > <center><TABLE>
<TR>
<TD>
<FONT SIZE="5" COLOR="#FF0000"><b>Resultat på din søgning..</FONT></B><BR><BR><BR>
<table border=0 cellspacing=0 bgcolor=#FFCC66 width=500>
<tr>
<td valign=top><font face=verdana size=2>
<%
' 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
</TD>
</TR>
</TABLE></td>
</tr>
</table>
</TD>
</TR>
</TABLE>
<center>
</BODY>
</HTML>
