Fejl i kode..
Heysa eksperten.dk =)har en kode til mit community så de kan købe en figur ikke til at gå rundt med med til at have i sin profil..
har lavet shoppen og får ingen fejl men der står ikke "køb" som der skal.
kode:
<!-- Minus AutoDato -->
<SCRIPT LANGUAGE="JavaScript">
function test(input) {
alert(input);
}
</script>
<link href=forside.css rel=stylesheet>
<!-- #include file="Time.asp"-->
<%
mode = request.QueryString("mode")
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("Data.mdb")
if mode = "" then
if session("brugernavn") = "gæst" then
response.Write("Du er gæst, så du kan ikke købe noget")
else
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM community where brugernavn= '" & session("brugernavn") & "'"
rs.Open strsql, conn, 3, 3
Set rs1 = Server.CreateObject("ADODB.Recordset")
strSQL2 = "SELECT * FROM figurshop"
rs1.Open strsql2, conn, 3, 3
%>
<title>Figur-Shoppen</title><body bgcolor="#E9EEF1">
<table width="400" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td height="100" valign="top" bgcolor="#f4f7fa">
<table width="400" border="0" cellspacing="3" cellpadding="0">
<tr>
<td align="left" valign="top">
<p style="color:#FF0000 "><%
if session("fejl") = "" then
else
response.write(session("fejl"))
session("fejl") = ""
end if %></p>
<% if rs1.eof or rs1.bof then %>
Shoppen er tom
<% else
Do until rs1.eof %>
<table width="175" border="0" cellpadding="0" cellspacing="1" bgcolor="#44657F">
<tr>
<td valign="top" height="120" bgcolor="#f4f7fa" colspan="2">
<b><center><%=rs1("type")%></center></b>
<table cellpadding="0" background="shop.gif" cellspacing="1" width="175" height="120">
<tr>
<td width="45" colspan="2"> </td>
</tr>
<tr>
<td width="45">Ting:</td>
<td width="66"><b><%=rs1("ting")%></B></td><br>
</tr>
<tr>
<td bordercolor="#f4f7fa">Figur:</td>
<td bordercolor="#f4f7fa"><b><img src="<%=rs1("figur")%>" width="85" height="107" border=0></b></td>
</tr>
<tr>
<td bordercolor="#f4f7fa">Pris:</td>
<td bordercolor="#f4f7fa"><b><%=rs1("pris")%></b></td>
</tr>
<tr>
<td bordercolor="#f4f7fa">Kræver level: </td>
<td bordercolor="#f4f7fa"><b><%=rs1("level")%></b></td>
</tr>
<tr>
<td bordercolor="#f4f7fa">Antel på lager: </td>
<td bordercolor="#f4f7fa"><b><%=rs1("antal")%></b></td>
</tr>
<tr>
<td height="16" colspan="2" bordercolor="#f4f7fa">
<div align="left">
<%
strTingEng = rs1("ting_eng")
if rs1(strTingEng) = true then%>
<a style="cursor:hand;" onClick="test('Du har allerede <%=rs1("ting")%>')">Køb</a>
else
<%
if rs("level") <= rs1("level") then %>
<a style="cursor:hand;" onClick="test('Denne ting kræver level <%=rs1("level")%> og du er kun <%=rs("level")%>')">Køb</a>
else
<%
if rs1("pris") <= rs("point") then %>
<a style="cursor:hand;" onClick="test('Du har ikke points til denne ting')">Køb</a>
else
<a href="figurshop.asp?mode=kob&ting=<%=rs1("id")%>">Køb</a>
<%end if
end if
end if%>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<% rs1.movenext
loop%>
<%end if %>
</td>
<td align="right" valign="top"> </td>
</tr>
</table>
<% end if
end if
if mode = "kob" then
dim strKobeliste, arrKobeliste
strKobeliste = ",Figur1,blue,yellow,green,verdana,comic"
arrKobeliste = Split(strKobeliste,",")
session("Ting") = arrKobeliste(request.QueryString("ting"))
if session("brugernavn") <> "gæst" then
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM community where brugernavn = '" & session("brugernavn") & "'"
rs.Open strsql, conn, 1, 3
if rs.bof or rs.eof then
session("fejl") = "Du kan ikke købe denne ting"
response.Redirect("figurshop.asp")
end if
Set rs1 = Server.CreateObject("ADODB.Recordset")
strSQL2 = "SELECT * FROM figurshop where ting_eng = '" & session("Ting") & "'"
rs1.Open strsql2, conn, 1, 3
if rs(session("ting")) = False then
if rs1("level") <= rs("level") then
if rs1("pris") <= rs("point") then
rs1.update
rs1("antal") = rs1("antal") - 1
rs1. update
rs.update
rs(session("Ting")) = true
rs("point") = rs("point") - rs1("pris")
rs("point_nu") = now()
session("minepoints") = rs("point")
rs.update
session("fejl") = "Handlen er gennem ført"
response.Redirect("figurshop.asp")
else
session("fejl") = "Du har ikke points til denne ting"
response.Redirect("figurshop.asp")
end if
else
session("fejl") = "Denne ting kræver level " & rs1("level") & " og du er kun " & rs("level")
response.Redirect("figurshop.asp")
end if
else
session("fejl") = "Du har allerede " & rs1("ting")
response.Redirect("figurshop.asp")
end if
else
response.Redirect("artikel.asp")
end if
end if
%>
