Tja! Denna kod ska kolla så att man inte redan skapat ett team.. den ska alltså kolla om vemsid är samma som session("id").. är det så här jag ska göra? Men man skickas bara tillbaka till team.asp...
if request.querystring("action")="skapa" then
if rs("vemsid") = session("id") Then
response.redirect "team_redan.asp"
else
rs.addnew
rs("vem")=session("user")
rs("vemsid")=session("id")
rs("team")=request.form("team")
rs("slogan")=request.form("slogan")
rs("level")= "newbie"
rs("antal")= "1"
rs("datum")=now
rs.update
response.redirect "team_done.asp"
end if
else
response.redirect "team.asp"
end if
Det ser ut som att grundvillkoret request.querystring("action")="skapa" inte uppfylls. Kontrollera att querystringen finns där och att den har rätt värde.
mjo.. kanske ska förklara lite...
de finns en sida som heter team.asp... där finns en länk som går till den där sidan...
men som det är nu så när jag klickar på länken på team.asp.. så kommer inte ens sidan med if satsen upp :s
Den här koden är att föredra, du måste skapa en funktion som tar bort '-tecken i variablerna som ska in i databasen, det kallas för SQL-injections. (Sök i forumet för att få reda på mer.) För övrigt så är det inte bra ifall om HTML-kod tillåts, så därför kör vi en HTMLEncode i funktionen också.
Funktionen:
<%
Function Fix(str)
str = Server.HTMLEncode(str)
str = Replace(str,"'","''")
Fix = str
End Function
%>
<%
if request.querystring("action")="skapa" then
if rs("vemsid") = session("id") Then
rs.close : set rs = nothing
cn.close : set cn = nothing
response.write "Laget finns redan, du får välja ett annat namn. Var god backa."
else
rs.close : set rs = nothing
cn.execute("INSERT INTO din_tabell (vem,vemsid,team,slogan,level,antal,datum) Values('" & Fix(session("user")) & "','" & Fix(session("id")) & "','" & Fix(request.form("team")) & "','" & Fix(request.form("slogan")) & "',level='"newbie"',antal="1",datum=Now())")
cn.close : set cn = nothing
response.redirect "team_done.asp"
end if
else response.Write "Det blev ett fel, var god backa."
end if
%>
Som du kanske ser så behövde du inte ha en Response.Redirect i slutet. Om datan som skickas med i adressfältet inte är action=skapa så skriver vi bara ut ett litet felmeddelande. Hoppas min kod fungerar,jag känner mig lite tom i huvudet bara.
Den här koden är att föredra, du måste skapa en funktion som tar bort '-tecken i variablerna som ska in i databasen, det kallas för SQL-injections. (Sök i forumet för att få reda på mer.) För övrigt så är det inte bra ifall om HTML-kod tillåts, så därför kör vi en HTMLEncode i funktionen också.
Funktionen:
<%
Function Fix(str)
str = Server.HTMLEncode(str)
str = Replace(str,"'","''")
Fix = str
End Function
%>
<%
if request.querystring("action")="skapa" then
if rs("vemsid") = session("id") Then
response.write "Laget finns redan, du får välja ett annat namn. Var god backa."
else
Cn.Execute("UPDATE din_tabell Set vem=Fix(session("user")),vemsid=Fix(session("id")),team=Fix(request.form("team")),slogan=Fix(request.form("slogan")),level="newbie",antal="1",datum=Now()response.redirect "team_done.asp"
end if
else Response.Write "Det blev ett fel, var god backa."
end if
%>
Som du kanske ser så behövde du inte ha en Response.Redirect i slutet. Om datan som skickas med i adressfältet inte är action=skapa så skriver vi bara ut ett litet felmeddelande. Hoppas min kod fungerar,jag känner mig lite tom i huvudet bara.
okej.. alltså det jag söker e att den ska kolla så man inte skapat ett lag tidigare.. för man ska som medlem bara kunna skapa ett lag.. gäller de samma kod för de?
Notera att koden jag postade först var fel, jag redigerade den sedan så nu är den att föredra hoppas jag. /r Och sedan måste du stänga ner alla databasobjekt också, ifall om laget finns i databasen.
/rr Vad tusan svarade jag på? Jag tror Jesper_T löste saken åt dig. Men jag förbättrade i alla fall din kod, se till att du ej använder Recordset-objektet när du ska sätta in grejor i databasen, det går bättre utan Recordset (i alla fall snabbare).
/rrr Tusan vad det känns ovant att skriva kod med små bokstäver, ex. cn.execute i stället för Cn.Execute med mera..
Din SQL-kod fungerar nog bättre, jag skrev ju att min hjärna inte var i topptrim idag, speciellt inte när man ska koda heller.. *Redigerar min kod*
Å andra sida fungerar mitt Now() lika bra som ditt, tror jag i alla fall.
259 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
