Varför?

Än en gång: vad är det som inte funkar... och får du ett felmeddelande?

Mvh, Vide

detta funkade på en annan sida med recset inblandat !

ja, ja får ett felmeddelanden:

Kompileringsfel i Microsoft VBScript error '800a0401' 

Slut på programsats förväntas. 

/groda/listanamn.asp, line 228 

Response.write "<tr bgcolor='" & color & "'><td><font face=""Verdana"" size=""1"" color=""black"">" & rstemp("username") & "<br>" & "<a href=""blikompis.asp?username=" & rstemp("username") & """>Bli kompis</a>" & "&nbsp;" & "<A HREF=""javascript:ny_sida('visasvar.asp?id=<%=rstemp("id")

och det är på min popup länk den påstår att ett slut på programsats på ("id")

javascript:ny_sida('visasvar.asp?id="&rstemp("id")&"')>hejsan</a>"

nä, detta blev inte bra, troligen slarv av mig, kolla på första koden jag skickade, den innehåller storlek på fönstret. Det som hände jag använde din kod var att för det första blev "Skicka meddelande" länken helt konstig om man kollade i statusraden + att om man klickade på den hände inget sedan "Info" länken fanns det inte det minsta spåret av!

hjälp!

Jo, men felet ligger ju i att du använder en ASP-start och slut-tagg inuti ASPkod... det får man inte...

asp?id="&rstemp("id")&"">','300','30');">20 Frågor

asså kolla här nu alla aspare... denna kod får jag att det är syntax fel på..hmmm??? vad är fel?! Kolla på den raden markerat med fet stil!

<table>
<%
mypage = Request("whichpage")
If mypage = "" then
   mypage = 1
End If
mypagesize = 10

SQL = "Select * From users Order by username"

Set rstemp = Server.Createobject("ADODB.Recordset")
rstemp.cursorlocation = 3
rstemp.cachesize = 5
MdbFilePath = Server.MapPath("users.mdb")
rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
If rstemp.EOF then
   Response.write "Där fanns det ju inget... " & sok
Else
   rstemp.movefirst
   rstemp.pagesize = mypagesize
   maxcount = Cint(rstemp.pagecount)
   rstemp.absolutepage = mypage
   howmanyrecs = 0
   howmanyfields = rstemp.fields.count -1
   Do While Not RStemp.EOF AND howmanyrecs < rstemp.pagesize
   counter = counter + 1
   If counter mod 2 = 0 then
      color = "e16745"
   Else
      color = "F7F7E7"
   End If
   [b]Response.write "<tr bgcolor='" & color & "'><td><font face=""Verdana"" size=""1"" color=""black"">" & rstemp("username") & "<br>" & "<a href=""blikompis.asp?username=" & rstemp("username") & """>Bli kompis</a>" & "&nbsp;" & "<A HREF=""javascript:ny_sida('visasvar.asp?id="&rstemp("id")&"">','300','30');">20 Frågor</a>" & "&nbsp;" & "<a href=""skickamess.asp?till=" & rstemp("username") & """>Skicka meddelande</a>" & "</td></tr></font>"[/b]

   rstemp.movenext
   howmanyrecs = howmanyrecs + 1
   Loop
   rstemp.close
   Set rstemp = nothing
   %>
   <tr><td><img src="hr2.jpg" width="397" height="11" border="0"></td></tr>
   <tr><td><font face="Verdana" size="1">
   <%
   If maxcount <> 0 then
   response.write "sida " & mypage & " av " & maxcount & "<br>" & sidor:
   pad = "0"
   scriptname = request.Servervariables("script_name")
   for counter = 1 to maxcount
   If counter >= 10 then
      pad = ""
   End If
   ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "
   response.write ref & " "
   if counter mod 10 = 0 then
      response.write "<br>"
   End If
   Next
   End If
End If
%>
</td></tr>
</table>

okej... testa detta istället.

Response.write "<tr bgcolor="& color &"><td><font face=Verdana size=1 color=black>"& rstemp("username") &"<br><a href=blikompis.asp?username="& rstemp("username") &">Bli kompis</a> <a href=javascript:ny_sida('visasvar.asp?id="& rstemp("id") &">','300','30');>20 Frågor</a><a href=skickamess.asp?till="& rstemp("username") &">Skicka meddelande</a></td></tr></font>"

tror de bör funka va...

MVH

man tackar nakoz, det funkade till 99% den sista procenten fick jag göra iordning för att det skulle kunna gå att öppna fönstret! Problemet låg vid "taggen" för att avsluta ....<%=rstemp("id")& ">

men efter den borttagningen funkar det till 100%

jag fick ju allt att funka på en sida men när jag ska använda mig av samma skript på andra sidor bli det på en sida ett "popup-felmeddelande" och på en annan sida blir det att fönstret ploppar upp, men jag får detta felmeddelandet:

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

[Microsoft][Drivrutin för ODBC Microsoft Access] För få parametrar angavs. 1 förväntades. 

/groda/info.asp, line 23

och info.asp´s asp kod ser ut så här(rad 23 är markerad med fetstil):

<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("users.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
%>
<font face="Verdana" size="1" color="white">
<%
SQL = "select * from users where id =" & request.querystring("id")
[b]Set rsInfo = databas.execute(SQL)[/b]
If rsInfo.EOF then
Response.Write "<b>" & "det blev nog lite fel nu"
else
Do while NOT rsInfo.EOF
%>
<font face="Verdana" size="1" color="black">
<table border="0" cellpadding="0" cellspacing="3" bgcolor="#F7F7E7" style="border-width:1; border-color:black; border-style:solid;">
    <tr>
        <td width="115" style="border-right-width:1; border-right-color:black; border-right-style:solid;"><p
             align="center"><font face="Verdana" size="1" color="black">[BILD]</td>
        <td width="228"><font face="Verdana" size="1" color="black">Förnamn: <b><%=rsInfo("Namn")%></b></font><br>
<font face="Verdana" size="1" color="black">Efternamn:&nbsp; <b><%=rsInfo("Efternamn")%></b></font><br>
<font face="Verdana" size="1" color="black">Emejl:&nbsp;<b><%=rsInfo("E-post")%></b></font><br>
<font face="Verdana" size="1" color="black">Bor i:&nbsp;<b><%=rsInfo("Bor")%></b></font><br>
<font face="Verdana" size="1" color="black">Kön:&nbsp;<b><%=rsInfo("Kon")%></b></font><br>
<font face="Verdana" size="1" color="black">Född:&nbsp;<b><%=rsInfo("ar")%>-<%=rsInfo("manad")%>-<%=rsInfo("dag")%></b></font><br>
<font face="Verdana" size="1" color="black">Så här beskriver jag mig själv:</font><br>
<font face="Verdana" size="1" color="black"><b><%=rsInfo("Fakta")%></b></font><br>
<font face="Verdana" size="1" color="black">Här på groda.net kallas jag:<br>
<b><%=rsInfo("Username")%></b><p>
Och det är <b><%=rsInfo("username")%></b> som du ska använda som mottagare
när du skickar grodmejl<br> till mig *kvack*<br>
<b>
Jo, visst du kan ju kolla på mina svar på <A HREF="visasvar.asp?id=<%=rsInfo("id")%>">"20 Frågor"</a> kanske är lite kul?
</b>

</font></td>
    </tr>
</table>
<table border="0" cellpadding="0" cellspacing="3" bgcolor="#F7F7E7" style="border-right-width:1; border-bottom-width:1; border-left-width:1; border-right-color:black; border-bottom-color:black; border-left-color:black; border-right-style:solid; border-bottom-style:solid; border-left-style:solid;">
    <tr>
        <td width="347"><form method="get">
            <p align="center"><input type="button" value="St&auml;ng" onclick="self.close()"
             style="font-family:Verdana; font-size:9; border-width:1; border-color:black; border-style:solid;"> 
            &nbsp;</td>
    </tr>
</table>
</form>
</font>
<%
rsInfo.MoveNext
Loop
rsInfo.CLose
%>
<% End If %>

och sedan koden för den sida som ger mig ett popupfelmeddelande:(vet ju inte vilken rad det är fel på här)

<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set rsMess = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"

SQL = "SELECT * From meddelande WHERE till ='" & Session("username") & "' ORDER BY datum DESC"
rsMess.Open SQL, Databas
If rsMess.EOF then
Response.Write "Du har inte ett enda grodmejl :("
else
Do while NOT rsMess.EOF

%>
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#F7F7E7" style="border-width:1; border-color:black; border-style:solid;">
    <tr>
        <td width="157" style="border-right-width:1; border-bottom-width:1; border-right-color:black; border-bottom-color:black; border-right-style:solid; border-bottom-style:solid;"><p><font
             face="Verdana" size="1" color="black"><b>&Auml;mne:</b></font></td>
        <td width="154" style="border-right-width:1; border-bottom-width:1; border-right-color:black; border-bottom-color:black; border-right-style:solid; border-bottom-style:solid;"><p><font
             face="Verdana" size="1" color="black"><b>Fr&aring;n:</b></font></td>
        <td width="150" style="border-right-width:1; border-bottom-width:1; border-right-color:black; border-bottom-color:black; border-right-style:solid; border-bottom-style:solid;"><p><font
             face="Verdana" size="1" color="black"><b>Skickat datum och tid:</b></font></td>
        <td width="109" style="border-bottom-width:1; border-bottom-color:black; border-bottom-style:solid;"><p><font
             face="Verdana" size="1" color="black"><b>Status:</b></font></td>
    </tr>
    <tr>
        <td width="157" style="border-right-width:1; border-right-color:black; border-right-style:solid;"><p><font face="Verdana" size="1" color="black"><a href="lasmess.asp?id=<%=rsMess("id")%>"><%=rsMess("rubrik")%></a></font>&nbsp;</td>
        <td width="154" style="border-right-width:1; border-right-color:black; border-right-style:solid;"><p><font face="Verdana" size="1" color="black"><a href=javascript:ny_sida('info.asp?id=<%=rsMess("id")%>','400','275');><%=rsMess("fran")%></a></font>&nbsp;</td>
        <td width="150" style="border-right-width:1; border-right-color:black; border-right-style:solid;"><p><font face="Verdana" size="1" color="black"><%=rsMess("datum")%></font>&nbsp;</td>
        <td width="109" style="border-right-width:1; border-right-color:black; border-right-style:solid;"><p><font face="Verdana" size="1" color="black"><%=rsMess("status")%></font>&nbsp;</td>
	<td width="109" style="border-right-width:0; border-right-color:black; border-right-style:solid;"><p><font face="Verdana" size="1" color="black">&nbsp;<a href="raderamess.asp?ID=<%=rsMess("ID")%>">Ta bort</a>&nbsp;<a href="skickamess.asp?till=<%=rsMess("fran")%>">Besvara</a></font>&nbsp;</td>    
</tr>
</table>
<br>

<%
rsMess.MoveNext
Loop
rsMess.CLose
%>
<% End If %>

jag tycker att detta är j*ligt sjukt!

Antaglien är det för att du inte har ett värde här: request.querystring("id")

Hur ser querystringen ut?

grabbs, vänta lite... jag ska snacka lite med M@rtin så kanske jag får svar... han har ju gjort en sån grej....