affär... med status

det funkar inte... snälla kan nån hjälpa mig.... snälla det är jätte viktigt

skriv ditt problem istället ..

listaprodukter
Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/SwedenWorld/listaprodukter.asp, line 12, column 17

<%

If Session("login") <> "ok" Then
Session("meddelande") = "Du har blivit urloggad, var god logga in igen!"
Response.Redirect "default.asp"
End If

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("xxxxxxxxxxx")&";pwd=xxxxxxxx"
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "Select Points_update From Points,members Where Points_UsrId=" & Session("ID") &""

%>
<div align="left">
<table border="1" width="564" height="1">
<tr>
<td width="63" height="10"><font face="Verdana" size="1">Status</font></td>
<td width="485" height="10" colspan="2"></td>
</tr>
<tr>
<td width="65" height="1"><font face="Verdana" size="1">Mess:</font></td>
<td width="196" height="1">></td>
<td width="281" height="1" rowspan="4"><font face="Verdana" size="1">Här
hittar du all status du tjänat  in..... du får status för varje
mess du skicka... Max 10 ... </font>
<p><font face="Verdana" size="1">1 mess... 1 status poäng<br>
1 forums inlägg  3 status poäng<br>
1 gästbok inlägg 1 status poäng<br>
1 inne & ute lista 2 status poäng<br>
<br>
sen kan du få extra status poäng det kan va upp till 200 extra status
poäng.... för mer info klicka här .....</font></td>
</tr>
<tr>
<td width="65" height="1"><font face="Verdana" size="1">Gästbok:</font></td>
<td width="196" height="1"></td>
</tr>
<tr>
<td width="65" height="1"><font face="Verdana" size="1">Forum:</font></td>
<td width="196" height="1">Kommner snart</td>
</tr>
<tr>
<td width="65" height="1"><font face="Verdana" size="1">Inne & Ute</font></td>
<td width="196" height="1">Kommer Snart</td>
</tr>
</table>
</div>
<div align="left">
<table border="1" width="565" height="37">
<tr>
<td width="565" height="37"><font size="1" face="Verdana"><b>Extra Status
Poäng: </b></font></td>
</tr>
</table>
</div>

<div align="left">
<table border="1" width="565" height="19">
<tr>
<td width="565" height="19">
<%
rs.open strSQL, Connect, 3, 3
If Not Rs.Eof Then
If DatePart(dd,Now()) = Datepart(dd,Rs("Points_Update")) Then
Response.Write "Du har redan uppdaterat idag"
Else
Response.Write "<a href=update_points.asp>Uppdatera poäng</A>"
End if
Else
Response.Write "du har inga poäng att uppdatera"
End if
%>
</td>
</tr>
</table>

R/ too late

 strSQL = "Select Points_update From Points,members Where Points_UsrId=" & Session("ID") &""

Dubbelfnuttarna som ställer till det?

jag märkte att jag skrev fel kod.... här är den rätta

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("affar.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

set rs = conn.execute("SELECT * FROM grejerAttKopa ORDER BY pris")

if not rs.eof then

do until rs.eof
response.write ""Produkt: " & rs("produktnamn") & "<br>""
response.write ""Pris (i status): " & rs("pris") & "<br>""
response.write "<a href=""kop.asp?id=" & rs("id") & "&pris=" & rs("pris") &"">Köp denna"
rs.movenext
loop

else
response.write "Det finns inga produkter att lista just nu."
end if

set rs = nothing
set conn = nothing
%>

På vissa ställen har du lite citationstecken för mycket, du har lagt in dubbla där det ska vara enkla.

<% 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("affar.mdb")&";" 

Set RecSet = Server.CreateObject("ADODB.Recordset") 

set rs = conn.execute("SELECT * FROM grejerAttKopa ORDER BY pris") 

if not rs.eof then 

do until rs.eof 
response.write "Produkt: " & rs("produktnamn") & "<br>"
response.write "Pris (i status): " & rs("pris") & "<br>" 
response.write "<a href=""kop.asp?id=" & rs("id") & "&pris=" & rs("pris") &"">Köp denna" 
rs.movenext 
loop 

else 
response.write "Det finns inga produkter att lista just nu." 
end if 

set rs = nothing 
set conn = nothing 
%>

Det vore bra om du kunde lägga in kod mellan [ kod]-taggar, så blir den betydligt mer lättläst.

Mvh,