vilken är rad 94?
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
Frågan#1
Tjo håller på med en liten länk tjafs till min sida.. Min kod ser ut så här:
<%
set conn=server.createobject("adodb.connection")
path="DBQ=" & server.mappath("../db/tidningen.mdb")
conn.open "driver={microsoft access driver (*.mdb)}; " & path,"name","name"
namnsdag = "SELECT namn1,namn2 FROM Namnsdag WHERE Manad = "&Month(Date)&" and Dag = "&Day(Date)&""
Set namnsdag = Conn.Execute(namnsdag)
SQLStmt = "SELECT * FROM Lenkargrupper order by Namn"
Set RS = Conn.Execute(SQLStmt)
SQLStmt = "SELECT * FROM Lenkargrupper order by Namn"
Set RS2 = Conn.Execute(SQLStmt)
SQLStmt = "SELECT * FROM Lenkar order by Namn"
Set RS3 = Conn.Execute(SQLStmt)
%>
<html>
<head>
<title>Tidningen!</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="http://badmike/tidningen/style.css">
<script language="JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF">
<div align="center">
<table width="780" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="6">
<div align="right"><img src="http://badmike/tidningen/bilder/top.gif" width="780" height="100"></div>
</td>
</tr>
<tr>
<td colspan="6">
<table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="#336699">
<tr>
<td>
<div align="center">
<!--#include virtual="/tidningen/topbar.asp" -->
</div>
</td>
</tr>
</table>
<br>
</td>
</tr>
<tr>
<td width="175" align="left" valign="top" height="276">
<!--#include virtual="/tidningen/meny.asp" -->
<img src="file:///%7Emp2tidning/public_html/tidningen/bilder/vitt.gif" width="175" height="1">
</td>
<td align="left" valign="top" width="462" height="276">
<table width="462" border="0" cellspacing="0" cellpadding="2">
<tr>
<td height="2" width="64" valign="middle">
<div align="left" class="TextBold">Länkar</div>
</td>
<form name="form1">
<td height="2" width="390">
<select name="Lenkar" onChange="MM_jumpMenu('parent',this,0)">
<option value="#">Grupper</option>
<option value="#">- - - - - - - - - -</option>
<% Do Until RS.EOF %>
<option value="#<%= RS("Namn")%>"><%= RS("Namn")%></option>
<%
RS.MoveNext
Loop
RS.Close
%>
</select>
</td>
</form>
</tr>
<tr>
<td height="2" colspan="2" valign="middle"> </td>
</tr>
<tr>
<td height="2" colspan="2" valign="middle">
<%
Do Until RS2.EOF
SQLStmt = "SELECT \* FROM Lenkar WHERE Grupp = " & RS2("Namn")
Set RS3 = Conn.Execute(SQLStmt)
%\>
\<table width="100%" border="0" cellspacing="3" cellpadding="4"\>
\<tr\>
\<td colspan="2"\>
\<div align="right" class="TextLiten"\>\<a href="#"\>Till toppen\</a\>\</div\>
\</td\>
\</tr\>
\<tr\>
\<td colspan="2" bgcolor="#AFAF85"\>
\<div class="TextBold"\>\<a name="\<%= RS2("Namn")%\>"\>\</a\>:: \<%= RS2("Namn")%\>\</div\>
\</td\>
\</tr\>
\<tr\>
\<td width="30%" bgcolor="#C9C9AD"\>
\<div class="Text"\>Namn\</div\>
\</td\>
\<td width="70%" bgcolor="#C9C9AD"\>
\<div class="Text"\>Info\</div\>
\</td\>
\</tr\>
\<% Do Until RS3.EOF %\>
\<tr\>
\<td width="30%"\>
\<div class="Text"\>\<a href="\<%= RS3("http")%\>" target="\_blank"\>\<%= RS3("Namn")%\>\</a\>\</div\>
\</td\>
\<td width="70%"\>
\<div class="TextGrey"\>\<%= RS3("Info")%\>\</div\>
\</td\>
\</tr\>
\<tr\>
\<td colspan="2"\> \</td\>
\</tr\>
\<%
RS3.MoveNext
Loop
RS3.Close
%\>
\</table\>
\<%
RS2.MoveNext
Loop
RS2.Close
%\>
\</td\>
\</tr\>
\</table\>
\</td\>
\<td width="145" align="center" valign="top" height="276"\>
\<!--#include virtual="/tidningen/banners.asp" --\>
\<br\>
\<img src="file:///%7Emp2tidning/public_html/tidningen/bilder/vitt.gif" width="145" height="1"\>
\</td\>
\</tr\>
\<tr\>
\<td colspan="3" align="left" valign="top"\>
\<!--#include virtual="/tidningen/bottombar.asp" --\>
\</td\>
\</tr\>
</table>
</div>
</body>
</html>
<%
Conn.Close
%>
Men när jag kör sidan så kommer detta felmeddelande upp:
Microsoft OLE DB Provider for ODBC Drivers fel '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/tidningen/hem/lenkar.asp, rad 94
Ser någon vart felet ligger??
------------------
Mikael Tyrsén
</www.tyrsen.nu>
</mikael@tyrsen.nu>