15. maj 2002 - 21:19Der er
20 kommentarer og 1 løsning
spørgsmål...
den skriver at den havde Expected Next i linie 93 jeg har rammet linie 93 ind med *** på hver side... er der ikke normalt, bare så man kan finde linien. forstå ikke helt i hvilken sammenhæng....
<% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then For each item in Request.Form If Request.Form(item) = "" Then fejl = True Else If Not fejl = True Then SQL = "UPDATE INTO users (user_email,user_password) VALUES('"& SQLReplace(Request.Form("email")) &"','"& SQLReplace(Request.Form("password")) &"')" COnn.ExeCute(SQL) Response.Redirect("login.asp") End If End If Next End if %>
både og du har en: For each .. in... den forvendter en Next til at slutte den for...
For each item in Request.Form If Request.Form(item) = "" Then fejl = True Else If Not fejl = True Then SQL = "UPDATE INTO users (user_email,user_password) VALUES('"& SQLReplace(Request.Form("email")) &"','"& SQLReplace(Request.Form("password")) &"')" COnn.ExeCute(SQL) Response.Redirect("login.asp") End If End If Next '<------ Prøv at indsætte next her.
<% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then For each item in Request.Form If Request.Form(item) = "" Then fejl = True Else If Not fejl = True Then SQL = "UPDATE INTO users (user_email,user_password) VALUES('"& SQLReplace(Request.Form("email")) &"','"& SQLReplace(Request.Form("password")) &"')" COnn.ExeCute(SQL) Response.Redirect("login.asp") End If End If Next End if %>
<% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then For each item in Request.Form If Request.Form(item) = "" Then fejl = True end if next If Not fejl = True Then SQL = "UPDATE INTO users (user_email,user_password) VALUES('"& SQLReplace(Request.Form("email")) &"','"& SQLReplace(Request.Form("password")) &"')" COnn.ExeCute(SQL) Else Response.Redirect("login.asp") End If End if %>
<%@ Language=VBScript %> <!--#include file="code_lib.asp"--> <% SessionTjek() %> If Request.ServerVariables("REQUEST_METHOD") = "POST" Then For each item in Request.Form If Request.Form(item) = "" Then fejl = True end if next If Not fejl = True Then SQL = "UPDATE INTO users (user_email,user_password) VALUES('"& SQLReplace(Request.Form("email")) &"','"& SQLReplace(Request.Form("password")) &"')" COnn.ExeCute(SQL) Else Response.Redirect("login.asp") End If End if %> <HTML>
function status(user_id) Set name = Conn.Execute("SELECT user_status FROM users WHERE user_id = "& Session("mail_login") &"") status = status("user_status") End function
det er dennelinie som er fejl i...
Set name = Conn.Execute("SELECT user_status FROM users WHERE user_id = "& Session("mail_login") &"")
REM Diverse funktioner start Function DatoVis(dato) maned = Array(,"januar", "februar", "marts", "april", "maj", "juni", "juli", "august","september", "oktober", "november", "devember") ugedag = Array(,"Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag", "Søndag") DatoVis = ugedag(Weekday(dato,2)) &" d. "& Day(dato)&". "& maned(month(dato)) &" "& Year(dato) End Function
Function checklogin(email,password) set tjek = Conn.Execute("SELECT user_id FROM users WHERE user_email = '"& email &"' AND user_password = '"& password &"'") If tjek.EOF THEN Response.Write "Bruger ikke fundet" Else Session("mail_login") = tjek("user_id") Response.Redirect("logon.asp") End If End Function
Function sendmail(modtager, overskrift, body) overskrifttjek = overskrift bodytjek = body If overskrifttjek = "" Then overskrifttjek = " " If bodytjek = "" Then bodytjek = " " SQL = "INSERT INTO mails (mail_owner, mail_from, mail_subject, mail_body) VALUES ("& modtager &","& Session("mail_login") &", '"& overskrifttjek &"', '"& Replace(bodytjek, VbCrLf,"<BR>") &"')" Conn.Execute(SQL) Response.Redirect("inbox.asp") End function
Function deletemail(mailid,ref_url) If mailid = "" Then Response.Redirect(Right(ref_url,Len(ref_url)-1)) mails = Split(mailid,",",-1,1) For a = 0 To Ubound(mails) Conn.ExeCute("UPDATE mails SET mail_deleted = True WHERE mail_id = "& mails(a) &" AND mail_owner = "& Session("mail_login") &"") Next Response.Redirect(Right(ref_url,Len(ref_url)-1)) End Function
function status(user_id) Set name = Conn.Execute("SELECT user_status FROM users WHERE user_id = "& Session("mail_login") &"") status = status("user_status") End function
function mail(user_id) Set name = Conn.Execute("SELECT user_email FROM users WHERE user_id = "& Session("mail_login") &"") email = email("user_email") End function
function brugernavn(user_id) Set name = Conn.Execute("SELECT user_brugernavn FROM users WHERE user_id = "& Session("mail_login") &"") brugernavn = bruger("user_brugernavn") End function
function password(user_id) Set name = Conn.Execute("SELECT user_password FROM users WHERE user_id = "& Session("mail_login") &"") username = pass("user_passwors") End function
Function username(user_id) Set uname = Conn.ExeCute("SELECT user_name FROM users WHERE user_id = "& Session("mail_login") &"") username = uname("user_name") End Function
Function SessionTjek() If Not Session("mail_login") > 0 Then Response.Redirect("login.asp") End Function
Function sqlreplace(streng) sqlreplace = Replace(streng,"'","''") End Function REM Diverse funktioner slut %>
Set name = Conn.Execute("SELECT user_status FROM ....
Eks denne function: function status(user_id) '<-- du får overfør userID brug det i din SQL Set name = Conn.Execute("SELECT user_status FROM users WHERE user_id = "& Session("mail_login") &"") status = status("user_status") '<- her bruger du et recordset status det skal vist være name som du lige har åbnet. End function
Alså sådan her: function status(user_id) Set name = Conn.Execute("SELECT user_status FROM users WHERE user_id = "& user_id &"") status = name("user_status") End function
Det samme gældre for flere af de andre functioner hvis jeg læser din include fil rigtigt. at det er function man individuelt kan kalde.
det ville også være en god ide at lukke det recordset man har åbenet igen hvis det ikke skal bruges:
function status(user_id) Set name = Conn.Execute("SELECT user_status FROM users WHERE user_id = "& user_id &"") status = name("user_status") name.Close End function
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.