Hjälp!

hmm du har en oavslutad if-sats i ditt exempel.

Ser ju inte hela koden där, men har du inte glömt End If?

Naj, end if kommer precis en rad nedanför...
Jag kan klistra in hela koden om det skulle underlätta ngt..

<table width="552" border="0" cellspacing="0" cellpadding="0" height="95" style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-top: 1 solid #000000" bgcolor="#FFFFFF">
<tr>
<td height="32" background="bg_.JPG" width="550" style="border-bottom: 1 solid #000000"><img border="0" src="klotterplank.jpg"></td>
</tr>
<tr>
<td height="20"><div align="center"><strong><font size="2">
<script>

function submitonce(theform){
if (document.all||document.getElementById){
for (i=0;i<theform.length;i++){
var tempobj=theform.elements
*if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
tempobj.disabled=true
}
}
}
</script>
<%

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/klotter.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT top 10 * FROM klotter order by id desc"
rs.Open Addera, Connect, 3, 3

if request.querystring("action")="spara" then
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM klotter "
rs.Open Addera, Connect, 3, 3
rs.addnew
rs("text")=request.form("inlagg")
rs("namn") = session("user")
rs("namnid")=session("id")
rs("datum") =now
rs.update

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/databas.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM anv where id='"&session("id")&"'"
rs.Open Addera, Connect, 3, 3
rs("status") = rs("status") + poangklotter
rs.update

response.redirect "klotter.asp"
end if

%>
</font></strong></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" style="border-bottom: 1 solid #000000">
<form name="form1" method="post" action="klotter.asp?action=spara" onSubmit="submitonce(this)"s>
 <font size="1" face="Verdana">
<textarea name="inlagg" cols="40" rows="4" style="font-family: Verdana; font-size: 10px; font-weight: bold"></textarea>
<br>
 
<input type="submit" name="Submit" value="skicka" style="font-family: Verdana; font-size: 10px; font-weight: bold">
</font>
</form>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/klotter.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM klotter order by id desc"
rs.Open Addera, Connect, 3, 3
do until rs.eof
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/databas.mdb")
Set rs2 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM anv where id='"&rs("namnid")&"'order by id "
rs2.Open Addera, Connect, 3, 3

if rs("datum")&""="" then
datum = "nån annan dag"
else
datum = left(rs("Datum"),10)
if date() = cDate(datum) then
datum = "Idag klockan "&right(rs("datum"),8)
else
datum = "nån annan dag"
end if
end if

%>
<hr> <table width="500" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
<td width="60">
<% if rs2("bild")<>"" then%>
<table width="30" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td width="50"><a href="minsida.asp?id=<%=rs("namnid")%>" ><font size="1" face="Verdana"><img src="<%=rs2("bild")%>" width="32" height="50" border=0></font></a></td>
</tr>
</table>
<div align="center"><a href="minsida.asp?id=<%=rs("namnid")%>" >
</a>
<font size="1" face="Verdana">
<% end if %>
</font>
</div></td>
<td width="429">
<font size="1" face="Verdana">
<% if rs("namnid")&""="" then%>
<b><%=rs("namn")%> </b>
<% else %>
<b> <a href="minsida.asp?id=<%=rs("namnid")%>">
<% if rs2("online") = "1" then%>
<% end if %>
<%=rs("namn")%> </a> // <%=datum%></b>
<% if rs2("online") = "1" then%>
<% end if %>
<%end if%>
<br> <%=rs("text")%> </font> </td>
</tr>
</table>
<font size="1" face="Verdana">
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
<td width="60">
</td>
<td width="429">
</td>
</tr>
</table>
<%
rs.movenext
loop
%>
<br> </font> </td>
</tr>
</table>*

<% if rs2("bild")<>"" then%>

är rad 118.

Hmm kolla dina Connect anrop, vet inte men jag brukar aldrig hålla på att återupprepa connect på det sättet, satte connect2 istället på den ena och simulerade ett Session("id").

Allt funkade de efter ha gjort databaserna lite snabbt.

Glöm inte stänga databaserna efter loopen

Ifall du gjorde allt o fick det att funka, du kan möjligtvis inte pasta in koden här?

Självklart, hoppas det löser sig!

<%
' ###### START ta bort denna sen #######
session("id") = 1
' ###### ta bort denna sen ENDS #######
%>

<table width="552" border="0" cellspacing="0" cellpadding="0" height="95" style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-top: 1 solid #000000" bgcolor="#FFFFFF">
<tr>
<td height="32" background="bg_.JPG" width="550" style="border-bottom: 1 solid #000000"><img border="0" src="klotterplank.jpg"></td>
</tr>
<tr>
<td height="20"><div align="center"><strong><font size="2">
<script>

function submitonce(theform){
if (document.all||document.getElementById){
for (i=0;i<theform.length;i++){
var tempobj=theform.elements[i]
if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
tempobj.disabled=true
}
}
}
</script>

</font></strong></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" style="border-bottom: 1 solid #000000"> 
<form name="form1" method="post" action="klotter.asp?action=spara" onSubmit="submitonce(this)"s>
 <font size="1" face="Verdana">
<textarea name="inlagg" cols="40" rows="4" style="font-family: Verdana; font-size: 10px; font-weight: bold"></textarea>
<br>
 
<input type="submit" name="Submit" value="skicka" style="font-family: Verdana; font-size: 10px; font-weight: bold">
</font>
</form>
<%

		Set Connect = Server.CreateObject("ADODB.Connection")
		Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/klotter.mdb")
		Set rs = Server.CreateObject("ADODB.Recordset")
		Addera = "SELECT top 10 * FROM klotter order by id desc"
		rs.Open Addera, Connect, 3, 3 

						if request.querystring("action")="spara" then
						Set rs = Server.CreateObject("ADODB.Recordset")
						Addera = "SELECT * FROM klotter "
						rs.Open Addera, Connect, 3, 3 
						rs.addnew
						rs("text")=request.form("inlagg")
						rs("namn") = session("user")
						rs("namnid")=session("id")
						rs("datum") =now
						rs.update
						
						Set Connect = Server.CreateObject("ADODB.Connection")
						Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/databas.mdb")
						Set rs = Server.CreateObject("ADODB.Recordset")
						Addera = "SELECT * FROM anv where id='"&session("id")&"'"
						rs.Open Addera, Connect, 3, 3 
						rs("status") = rs("status") + poangklotter
						rs.update
						
						
						
						response.redirect "klotter.asp"
						end if

		Set Connect2 = Server.CreateObject("ADODB.Connection")
		Connect2.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/klotter.mdb")
		Set rs = Server.CreateObject("ADODB.Recordset")
		Addera = "SELECT * FROM klotter order by id desc"
		rs.Open Addera, Connect2, 3, 3 

Do until rs.eof 
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/databas.mdb")
Set rs2 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM anv where id="&rs("namnid")&" order by id "
rs2.Open Addera, Connect, 3, 3

if rs("datum")&""="" then
datum = "nån annan dag"
else
datum = left(rs("Datum"),10)
if date() = cDate(datum) then 
datum = "Idag klockan "&right(rs("datum"),8)
else
datum = "nån annan dag"
end if
end if

%>
<hr> <table width="500" border="0" cellspacing="0" cellpadding="0">
<tr valign="top"> 
<td width="60"> 
<% if rs2("bild")<>"" then%>
<table width="30" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr> 
<td width="50"><a href="minsida.asp?id=<%=rs("namnid")%>" ><font size="1" face="Verdana"><img src="<%=rs2("bild")%>" width="32" height="50" border=0></font></a></td>
</tr>
</table>
<div align="center"><a href="minsida.asp?id=<%=rs("namnid")%>" > 
</a> 
<font size="1" face="Verdana"> 
<% end if %>
</font>
</div></td>
<td width="429"> 
<font size="1" face="Verdana"> 
<% if rs("namnid")&""="" then%>
<b><%=rs("namn")%> </b> 
<% else %>
<b> <a href="minsida.asp?id=<%=rs("namnid")%>"> 
<% if rs2("online") = "1" then%>
<% end if %>
<%=rs("namn")%> </a> // <%=datum%></b> 
<% if rs2("online") = "1" then%>
<% end if %>
<%end if%>
<br> <%=rs("text")%> </font> </td>
</tr>
</table>
<font size="1" face="Verdana">
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr valign="top"> 
<td width="60"> 
</td>
<td width="429"> 
</td>
</tr>
</table>
<%
rs.movenext
loop

rs.close
rs2.close
Connect.Close
Connect2.Close
Set Connect = Nothing
Set Connect2 = Nothing

%>
<br> </font> </td>
</tr>
</table>

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/bla/klotter.asp, line 84

:/

Hmm nameID?
När jag gjorde min databas satte jag detta till ett tal, kanske var ett dumt antagande från min sida. Därav kodändringen där.

Jag provade lägga in 2 poster; bifogar en screen så att du ser att det funkar!

Så frågan är;
Vad har du för session("id") på sidan, är du inloggade på nåt sätt eller tilldelas detta på annat håll?
Sen är nästa fråga har du nåt i databaserna just nu eller är de "in blanco" ...?

NameID är satt som Räknare :/

O japp.. är inloggad och det finns poster i databasen..

Okej ...

Förmodar att du tagit bort ' ### ... mina 3 rader längst upp?

Vad står det på din sida kring raderna 80-90?

Set Connect2 = Server.CreateObject("ADODB.Connection")
Connect2.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/klotter.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM klotter order by id desc"
rs.Open Addera, Connect2, 3, 3

Do until rs.eof
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/databas.mdb")
Set rs2 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM anv where id="&rs("namnid")&" order by id "
rs2.Open Addera, Connect, 3, 3

if rs("datum")&""="" then
datum = "nån annan dag"
else
datum = left(rs("Datum"),10)
if date() = cDate(datum) then
datum = "Idag klockan "&right(rs("datum"),8)
else
datum = "nån annan dag"
end if
end if

%>

Hmmm

Lurigt värre, inte bättre efter ett gäng burkar heller =)

Om du vill kan jag e-posta de 2 databaserna jag gjorde snabbt till dig, så du kan testa lokalt på din dator.

Då bör det inte bli nåt fel, blir det det så är det underligt ....

Visst, gärna...

Men e inte databaserna lite stora för att skicka genom e-post? vad vet jag.

Kan PM:a dig min mail...

Nu får jag samma error som jag fick från första början, men nu kan jag iaf posta inlägg : )

------------------------------------------------------------------------

error '80020009'
Exception occurred.

/bla/klotter.asp, line 101

Hehe, det går framåt då ...

Vad har du på din rad 101?

<% if rs2("bild")<>"" then%>

:O

Jag löste det, tack för att du gav dig tid emil_ad.

Två saker:

1. Använd alltid [kod]-taggar när du postar kod.
2. Löser du problemet, redovisa lösningen.