\" \> \ whats the problem? oehört tacksam för svar! Permalänk: https://www.webforum.nu/p/108249 ## #2 — emil_ad, 2004-07-30T18:30Z 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? Permalänk: https://www.webforum.nu/p/1399212 ## #3 — Jeppez, 2004-07-30T18:32Z Naj, end if kommer precis en rad nedanför... Jag kan klistra in hela koden om det skulle underlätta ngt.. Permalänk: https://www.webforum.nu/p/1399214 ## #4 — Jeppez, 2004-07-30T18:33Z \ \ \

\\ \ function submitonce(theform){ if (document.all\|\|document.getElementById){ for (i=0;i\ \<% 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 %\> \\\\ \ \ \

\ \

\</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\>*

Permalänk: https://www.webforum.nu/p/1399215

## #5 — Jeppez, 2004-07-30T19:45Z

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

är rad 118.

Permalänk: https://www.webforum.nu/p/1399259

## #6 — emil_ad, 2004-07-30T19:53Z

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

Permalänk: https://www.webforum.nu/p/1399263

## #7 — Jeppez, 2004-07-30T20:01Z

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

Permalänk: https://www.webforum.nu/p/1399267

## #8 — emil_ad, 2004-07-30T20:16Z

Självklart, hoppas det löser sig!

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

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

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

" >

" width="32" height="50" border=0>

" > <% end if %>

<% if rs("namnid")&""="" then%> <%=rs("namn")%> <% else %> "> <% if rs2("online") = "1" then%> <% end if %> <%=rs("namn")%> // <%=datum%> <% if rs2("online") = "1" then%> <% end if %> <%end if%>
<%=rs("text")%>

<% rs.movenext loop rs.close rs2.close Connect.Close Connect2.Close Set Connect = Nothing Set Connect2 = Nothing %>

``` Permalänk: https://www.webforum.nu/p/1399288 ## #9 — Jeppez, 2004-07-30T20:27Z 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 :/ Permalänk: https://www.webforum.nu/p/1399304 ## #10 — emil_ad, 2004-07-30T20:38Z 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" ...? Bilagor: - [klotteri_klottera.jpg](https://www.webforum.nu/a/4103.jpg) Permalänk: https://www.webforum.nu/p/1399319 ## #11 — Jeppez, 2004-07-30T20:53Z NameID är satt som Räknare :/ O japp.. är inloggad och det finns poster i databasen.. Permalänk: https://www.webforum.nu/p/1399341 ## #12 — emil_ad, 2004-07-30T21:00Z Okej ... Förmodar att du tagit bort ' ### ... mina 3 rader längst upp? Vad står det på din sida kring raderna 80-90? Permalänk: https://www.webforum.nu/p/1399344 ## #13 — Jeppez, 2004-07-30T21:03Z 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 %\> Permalänk: https://www.webforum.nu/p/1399346 ## #14 — emil_ad, 2004-07-30T21:25Z 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 .... Permalänk: https://www.webforum.nu/p/1399362 ## #15 — Jeppez, 2004-07-30T21:41Z 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... Permalänk: https://www.webforum.nu/p/1399368 ## #16 — Jeppez, 2004-07-30T21:57Z 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 Bilagor: - [illa.jpg](https://www.webforum.nu/a/4106.jpg) Permalänk: https://www.webforum.nu/p/1399383 ## #17 — emil_ad, 2004-07-30T22:05Z Hehe, det går framåt då ... Vad har du på din rad 101? Permalänk: https://www.webforum.nu/p/1399392 ## #18 — Jeppez, 2004-07-30T22:24Z \<% if rs2("bild")\<\>"" then%\> :O Permalänk: https://www.webforum.nu/p/1399413 ## #19 — Jeppez, 2004-07-31T01:18Z Jag löste det, tack för att du gav dig tid emil_ad. Permalänk: https://www.webforum.nu/p/1399461 ## #20 — @nders, 2004-07-31T07:34Z Två saker: 1) Använd **alltid** \[kod\]-taggar när du postar kod. 2) Löser du problemet, redovisa lösningen. Permalänk: https://www.webforum.nu/p/1399477 --- Tråden på webben: https://www.webforum.nu/amne/asp/108249-hjälp