Fejl i min ASP
hejza alle sammen jeg har lige en stor problem jeg har sadet i ca 5 timer og bare ikke kab løse det !!! hvor dan gøe jeg her er kille kode<!-- #include virtual = "inc/dbconn.asp" -->
<!-- #include virtual = "inc/options.asp" -->
<!-- #include virtual = "inc/status.asp" -->
<!-- #include virtual = "inc/top.asp" -->
<%
if (session("login_username") = "" or session("login_god") = "" or session("login_teamname") = "" or session("login_status") = "") then Response.Redirect "main.asp?mode=loginerror" end if
if not session("login_god") = "yes" then
Response.Write noreport
else
error = request("error")
if error = 1 then Response.Write ereport1 end if
if error = 2 then Response.Write ereport2 end if
if request("mode") = "report1" then
if Request.Form("hold1") = "no" then Response.Redirect "reportloss.asp?error=1&mode=select1" end if
if Request.Form("hold1") = session("login_teamname") then Response.Redirect "reportloss.asp?error=2&mode=select1" end if
session("hold1") = Request.Form("hold1")
session("hold2") = session("login_teamname")
strsql = "Select * From team where name='" & Request.Form("hold1") & "'"
set p1 = conn.execute(strsql)
strsql = "Select * From team where name='" & session("login_teamname") & "'"
set p2 = conn.execute(strsql)
if p1("rank") >= p2("rank") then
pforskel = int(int(p1("rank"))-int(p2("rank")))
else
pforskel = int(int(p2("rank"))-int(p1("rank")))
end if
u1_chance = (1/(1+10^((pforskel)/400))*100)
u2_chance = (1/(1+10^((-pforskel)/400))*100)
loser_point = int(int(50*int(100-u1_chance))/100)
winner_point = int(int(50*int(100-u2_chance))/100)
strSQL = "SELECT * FROM kampe"
Set RS = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, Conn, 3, 3
rs.AddNew
rs("bane") = Request.Form("bane")
rs("win") = Request.Form("hold1")
rs("lose") = session("login_teamname")
rs("dato") = now()
rs.Update
strSQL = "SELECT * FROM team where name='" & Request.Form("hold1") & "'"
Set RS = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, Conn, 3, 3
rs("win") = rs("win")+1
rs("rank") = rs("rank") + winner_point
rs.Update
strSQL = "SELECT * FROM team where name='" & session("login_teamname") & "'"
Set RS = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, Conn, 3, 3
rs("lose") = rs("lose")+1
rs("rank") = rs("rank") - loser_point
rs.Update
Response.Redirect "reportloss.asp?mode=select2"
end if
if request("mode") = "report2" then
if (session("hold1") = "" or session("hold2") = "") then Response.Redirect "reportloss.asp?select1" end if
strsql = "SELECT * FROM user where team='" & session("hold1") & "'"
set rsw = Conn.execute(strsql)
do until rsw.eof
if Request(rsw("id")) = "yes" then
strSQL = "SELECT * FROM user where id=" & rsw("id") & ""
Set RS = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, Conn, 3, 3
rs("win") = rs("win")+1
rs.Update
end if
rsw.movenext
loop
Response.Redirect "reportloss.asp?mode=select3"
end if
if request("mode") = "report3" then
if (session("hold1") = "" or session("hold2") = "") then Response.Redirect "reportloss.asp?select1" end if
strsql = "SELECT * FROM user where team='" & session("hold2") & "'"
set rsl = Conn.execute(strsql)
do until rsl.eof
if Request(rsl("id")) = "no" then
strSQL = "SELECT * FROM user where id=" & rsl("id") & ""
Set RS = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, Conn, 3, 3
rs("lose") = rs("lose")+1
rs.Update
end if
rsl.movenext
loop
Response.Redirect "reportloss.asp?mode=select4"
end if
if request("mode") = "select1" then
strsql = "Select * From team order by name"
set rs = conn.execute(strsql)
set rs2 = conn.execute(strsql)
%>
<FORM action="reportloss.asp?mode=report1" method=POST id=form2 name=form2>
The winner team:
<BR>
<SELECT name=hold1>
<OPTION value=no>Select team</OPTION>
<% do until rs.eof
Response.Write "<OPTION>" & rs("name") & "</OPTION>"
rs.movenext
loop
%>
</select>
<BR>
Map:
<BR>
<INPUT type="text" id=text1 name=bane>
<BR>
<INPUT type="submit" value="Next" id=submit2 name=submit2>
</FORM>
<% end if
if request("mode") = "select2" then
%>
<FORM action="reportloss.asp?mode=report2" method=POST id=form1 name=form1>
The players on the winner team (<%=session("hold1")%>):<BR>
<%
strsql = "Select * From user where team='" & session("hold1") & "' and god='yes'"
set rs1 = conn.execute(strsql)
do until rs1.eof %>
<input type="Checkbox" name="<%=rs1("id")%>" value="yes"> <%=rs1("username")%><BR>
<%
rs1.movenext
loop
%>
<BR>
<INPUT type="submit" value="Next" id=submit3 name=submit3>
</FORM>
<%
end if
if request("mode") = "select3" then
%>
<FORM action="reportloss.asp?mode=report3" method=POST id=form1 name=form1>
The players from your team (<%=session("hold2")%>):<BR>
<%
strsql = "Select * From user where team='" & session("hold2") & "' and god='yes'"
set rs2 = conn.execute(strsql)
do until rs2.eof %>
<input type="Checkbox" name="<%=rs2("id")%>" value="no"> <%=rs2("username")%><BR>
<%
rs2.movenext
loop
%>
<BR>
<INPUT type="submit" value="Next" id=submit1 name=submit1>
</FORM>
<%
end if
if request("mode") = "select4" then
Response.Write reportok
end if
end if
%>
<!-- #include virtual = "inc/bund.asp" -->
den meller fejl ved line 15 og det er noget med at heads alle rede skrives !!! men kik på www.mosh.dk og opret bruger og lodin og så går du ind på den der hennder noegt med rospoloss okey zez jeg håber da der er nogen der kan hjælpe mig !!
