Find en fejl (eller flere)

Du forbinder ikke til databasen, og hvad er variablen s??

Hilsen Mathias

<% if s = "Opdater" then


Sql = "SELECT * FROM Medlemmer where Brugernavn = '" & session("Brugernavn") & "'"
Set rs= Con.Execute(Sql)

rs.update
rs("Status") = Request.Form("Status")
rs("MSN") = Request.Form("MSN")
rs.update

set rs = nothing
rs.Close

response.redirect ("default.asp?s=Indstillinger")
end if%>

Kan du finde en fejl...?

Hvad er fejlbeskeden??

Casper

Den 21-04-05 21:38 skrev Morten B. Olsen følgende:
-----------------------------------------------------------------------------

<% if s = "Opdater" then


Sql = "SELECT * FROM Medlemmer where Brugernavn = '" & session("Brugernavn") & "'"
Set rs= Con.Execute(Sql)

rs.update
rs("Status") = Request.Form("Status")
rs("MSN") = Request.Form("MSN")
rs.update

set rs = nothing
rs.Close

response.redirect ("default.asp?s=Indstillinger")
end if%>

Kan du finde en fejl...?
-----------------------------------------------------------------------------

Er det ikke noget med det skal være:
Set rs= Conn.Execute(Sql)
Og ikke:
Set rs= Con.Execute(Sql)

Brihhzel
Christoffer@raiser.dk

<% if s = "Opdater" then


Sql = "SELECT * FROM Medlemmer where Brugernavn = '" & session("Brugernavn") & "'"
Set rs= Con.Execute(Sql)

rs.update
rs("Status") = Request.Form("Status")
rs("MSN") = Request.Form("MSN")
rs.update

set rs = nothing
rs.Close

response.redirect ("default.asp?s=Indstillinger")
end if%>

Kan du finde en fejl...?

Hvad er fejlbeskeden??

Casper

ingen fejl besked, men siden man ser hedder

Der opstod en intern http 500-serverfejl fejl.

Du forbinder ikke til databasen, og hvad er variablen s??

Hilsen Mathias

s = Request.QueryString("s")

og forbindelsen til databasen er oprettet længere oppe på siden.. Men lige meget.. Lavede lidt om og nu virker det...

<% if s = "Opdater" then


Sql = "SELECT * FROM Medlemmer where Brugernavn = '" & session("Brugernavn") & "'"
Set rs= Con.Execute(Sql)

rs.update
rs("Status") = Request.Form("Status")
rs("MSN") = Request.Form("MSN")
rs.update

set rs = nothing
rs.Close

response.redirect ("default.asp?s=Indstillinger")
end if%>

Kan du finde en fejl...?

<%
if s = "Opdater" Then

Sql = "SELECT * FROM Medlemmer WHERE Brugernavn = '" & Session("Brugernavn") & "'"
Set rs= Conn.Execute(Sql) 'Du havde skrevet "Con" og ikke "Conn". Nu ved jeg selvfølgelig ikke om du kalder din "Con" af en eller anden grund, men læg blot mærke til det.

 rs.update
 rs("Status") = Request.Form("Status")
 rs("MSN") = Request.Form("MSN")
 rs.update

set rs = nothing
rs.Close

 Response.Redirect "default.asp?s=Indstillinger"
End if
'Ellers kan jeg ikke finde nogle fejl... Blot lavet lidt orden i det, så det er til at finde rundt i.
%>

/Peter.