Avatar billede aspprogram Nybegynder
15. maj 2002 - 21:19 Der 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....

<%@ 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
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
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="Content-Language" content="da">
<TITLE>Sport / Idræt - Medier</TITLE>
</HEAD>
<BODY BGCOLOR=#FFFFFF>
<TABLE WIDTH=741 BORDER=0 CELLPADDING=0 CELLSPACING=0 align="center" valign="middle">
<TR>
<TD>
<IMG SRC="images2/spacer.gif" WIDTH=25 HEIGHT=1></TD>
<TD>
<IMG SRC="images2/spacer.gif" WIDTH=1 HEIGHT=1></TD>
<TD>
<IMG SRC="images2/spacer.gif" WIDTH=145 HEIGHT=1></TD>
<TD>
<IMG SRC="images2/spacer.gif" WIDTH=25 HEIGHT=1></TD>
<TD>
<IMG SRC="images2/spacer.gif" WIDTH=519 HEIGHT=1></TD>
<TD>
<IMG SRC="images2/spacer.gif" WIDTH=26 HEIGHT=1></TD>
</TR>
<TR>
<TD COLSPAN=6><IMG SRC="images2/over_01.gif" WIDTH=741 HEIGHT=21></TD>
</TR>
<TR>
<TD ROWSPAN=14><IMG SRC="images2/over_02.gif" WIDTH=25 HEIGHT=484></TD>
<TD ROWSPAN=2><IMG SRC="images2/over_03.gif" WIDTH=1 HEIGHT=70></TD>
<TD COLSPAN=3><IMG SRC="images2/over_04.gif" WIDTH=689 HEIGHT=69></TD>
<TD ROWSPAN=14><IMG SRC="images2/over_05.gif" WIDTH=26 HEIGHT=484></TD>
</TR>
<TR>
<TD COLSPAN=3><IMG SRC="images2/over_06.gif" WIDTH=689 HEIGHT=1></TD>
</TR>
<TR>
<TD COLSPAN=4><IMG SRC="images2/over_07.gif" WIDTH=690 HEIGHT=19></TD>
</TR>
<TR>
<TD COLSPAN=2><a href="mails.asp"><IMG SRC="images2/over_08.gif" WIDTH=146 HEIGHT=31 border="0"></a></TD>
<TD ROWSPAN=11><IMG SRC="images2/over_09.gif" WIDTH=25 HEIGHT=395></TD>
<TD ROWSPAN=11 background="images2/over_10.gif" valign="top">
<form action="bruger.asp" METHOD="POST">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="center" colspan="2">&nbsp;</td>
</tr>
<tr>
<td width="50%" align="center">Navn</td>
<td width="50%"><% = username(session("mail_login")) %></td>
</tr>
<tr>
<td width="100%" align="center" colspan="2">&nbsp;</td>
</tr>
<tr>
<td width="50%" align="center">Status</td>
<td width="50%"><% = status(session("mail_login")) %></td>
</tr>
<tr>
<td width="100%" align="center" colspan="2">&nbsp;</td>
</tr>
<tr>
<td width="50%" align="center">Brugernavn</td>
<td width="50%"><% = brugernavn(session("mail_login")) %></td>
</tr>
<tr>
<td width="100%" align="center" colspan="2">&nbsp;</td>
</tr>
<tr>
<td width="50%" align="center">Password</td>
<td width="50%"><input type="password" value="<% = password(session("mail_login")) %>" size="30"></td>
</tr>
<tr>
<td width="100%" align="center" colspan="2">&nbsp;</td>
</tr>
<tr>
***<td width="50%" align="center">E-mail*</td>
<td width="50%"><input type="text" value="<% = email(session("mail_login")) %>" size="30"></td>***
</tr>
<tr>
<td width="100%" align="center" colspan="2">&nbsp;</td>
</tr>
<tr>
<td width="100%" align="center" colspan="2">&nbsp;</td>
</tr>
<tr>
<td width="100%" colspan="2">
&nbsp;* E-mailen er den e-mail som du bruger mest udenfor systemet, og som du vil være nemmest at blive kontaktet på.
<br>
<br>
Hvis du ikke vil oplyse din mail, så skal du i stedet skrive N/A.
</td>
</tr>
</table>
</form>
</TD>
</TR>
<TR>
<TD COLSPAN=2><IMG SRC="images2/over_11.gif" WIDTH=146 HEIGHT=19></TD>
</TR>
<TR>
<TD COLSPAN=2><a href="member.asp"><IMG SRC="images2/over_12.gif" WIDTH=146 HEIGHT=31 border="0"></a></TD>
</TR>
<TR>
<TD COLSPAN=2><IMG SRC="images2/over_13.gif" WIDTH=146 HEIGHT=20></TD>
</TR>
<TR>
<TD COLSPAN=2><a href="kampkort.asp"><IMG SRC="images2/over_14.gif" WIDTH=146 HEIGHT=30 border="0"></a></TD>
</TR>
<TR>
<TD COLSPAN=2><IMG SRC="images2/over_15.gif" WIDTH=146 HEIGHT=19></TD>
</TR>
<TR>
<TD COLSPAN=2><a href="bruger.asp"><IMG SRC="images2/over_16.gif" WIDTH=146 HEIGHT=30 border="0"></a></TD>
</TR>
<TR>
<TD COLSPAN=2><IMG SRC="images2/over_17.gif" WIDTH=146 HEIGHT=71></TD>
</TR>
<TR>
<TD COLSPAN=2><a href="logout.asp"><IMG SRC="images2/over_18.gif" WIDTH=146 HEIGHT=30 border="0"></a></TD>
</TR>
<TR>
<TD COLSPAN=2><IMG SRC="images2/over_19.gif" WIDTH=146 HEIGHT=19></TD>
</TR>
<TR>
<TD COLSPAN=2 background="images2/over_20.gif" width="144" height="93" valign="top"></TD>
</TR>
<TR>
<TD COLSPAN=6><IMG SRC="images2/over_21.gif" WIDTH=741 HEIGHT=25></TD>
</TR>
<TR>
<TD COLSPAN=6><IMG SRC="images2/over_22.gif" WIDTH=741 HEIGHT=1></TD>
</TR>
</TABLE>
</BODY>
</HTML>
Avatar billede skovtrold Nybegynder
15. maj 2002 - 21:24 #1
Jeg vil mene du skal gøre sådan:

<%
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
%>
Avatar billede medions Nybegynder
15. maj 2002 - 21:25 #2
Prøv lige med dette:

<%@ 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
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
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="Content-Language" content="da">
<TITLE>Sport / Idræt - Medier</TITLE>
</HEAD>
<BODY BGCOLOR=#FFFFFF>
<TABLE WIDTH=741 BORDER=0 CELLPADDING=0 CELLSPACING=0 align="center" valign="middle">
<TR>
<TD>
<IMG SRC="images2/spacer.gif" WIDTH=25 HEIGHT=1></TD>
<TD>
<IMG SRC="images2/spacer.gif" WIDTH=1 HEIGHT=1></TD>
<TD>
<IMG SRC="images2/spacer.gif" WIDTH=145 HEIGHT=1></TD>
<TD>
<IMG SRC="images2/spacer.gif" WIDTH=25 HEIGHT=1></TD>
<TD>
<IMG SRC="images2/spacer.gif" WIDTH=519 HEIGHT=1></TD>
<TD>
<IMG SRC="images2/spacer.gif" WIDTH=26 HEIGHT=1></TD>
</TR>
<TR>
<TD COLSPAN=6><IMG SRC="images2/over_01.gif" WIDTH=741 HEIGHT=21></TD>
</TR>
<TR>
<TD ROWSPAN=14><IMG SRC="images2/over_02.gif" WIDTH=25 HEIGHT=484></TD>
<TD ROWSPAN=2><IMG SRC="images2/over_03.gif" WIDTH=1 HEIGHT=70></TD>
<TD COLSPAN=3><IMG SRC="images2/over_04.gif" WIDTH=689 HEIGHT=69></TD>
<TD ROWSPAN=14><IMG SRC="images2/over_05.gif" WIDTH=26 HEIGHT=484></TD>
</TR>
<TR>
<TD COLSPAN=3><IMG SRC="images2/over_06.gif" WIDTH=689 HEIGHT=1></TD>
</TR>
<TR>
<TD COLSPAN=4><IMG SRC="images2/over_07.gif" WIDTH=690 HEIGHT=19></TD>
</TR>
<TR>
<TD COLSPAN=2><a href="mails.asp"><IMG SRC="images2/over_08.gif" WIDTH=146 HEIGHT=31 border="0"></a></TD>
<TD ROWSPAN=11><IMG SRC="images2/over_09.gif" WIDTH=25 HEIGHT=395></TD>
<TD ROWSPAN=11 background="images2/over_10.gif" valign="top">
<form action="bruger.asp" METHOD="POST">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="center" colspan="2">&nbsp;</td>
</tr>
<tr>
<td width="50%" align="center">Navn</td>
<td width="50%"><% = username(session("mail_login")) %></td>
</tr>
<tr>
<td width="100%" align="center" colspan="2">&nbsp;</td>
</tr>
<tr>
<td width="50%" align="center">Status</td>
<td width="50%"><% = status(session("mail_login")) %></td>
</tr>
<tr>
<td width="100%" align="center" colspan="2">&nbsp;</td>
</tr>
<tr>
<td width="50%" align="center">Brugernavn</td>
<td width="50%"><% = brugernavn(session("mail_login")) %></td>
</tr>
<tr>
<td width="100%" align="center" colspan="2">&nbsp;</td>
</tr>
<tr>
<td width="50%" align="center">Password</td>
<td width="50%"><input type="password" value="<% = password(session("mail_login")) %>" size="30"></td>
</tr>
<tr>
<td width="100%" align="center" colspan="2">&nbsp;</td>
</tr>
<tr>
***<td width="50%" align="center">E-mail*</td>
<td width="50%"><input type="text" value="<% = session("mail_login") %>" size="30"></td>***
</tr>
<tr>
<td width="100%" align="center" colspan="2">&nbsp;</td>
</tr>
<tr>
<td width="100%" align="center" colspan="2">&nbsp;</td>
</tr>
<tr>
<td width="100%" colspan="2">
&nbsp;* E-mailen er den e-mail som du bruger mest udenfor systemet, og som du vil være nemmest at blive kontaktet på.
<br>
<br>
Hvis du ikke vil oplyse din mail, så skal du i stedet skrive N/A.
</td>
</tr>
</table>
</form>
</TD>
</TR>
<TR>
<TD COLSPAN=2><IMG SRC="images2/over_11.gif" WIDTH=146 HEIGHT=19></TD>
</TR>
<TR>
<TD COLSPAN=2><a href="member.asp"><IMG SRC="images2/over_12.gif" WIDTH=146 HEIGHT=31 border="0"></a></TD>
</TR>
<TR>
<TD COLSPAN=2><IMG SRC="images2/over_13.gif" WIDTH=146 HEIGHT=20></TD>
</TR>
<TR>
<TD COLSPAN=2><a href="kampkort.asp"><IMG SRC="images2/over_14.gif" WIDTH=146 HEIGHT=30 border="0"></a></TD>
</TR>
<TR>
<TD COLSPAN=2><IMG SRC="images2/over_15.gif" WIDTH=146 HEIGHT=19></TD>
</TR>
<TR>
<TD COLSPAN=2><a href="bruger.asp"><IMG SRC="images2/over_16.gif" WIDTH=146 HEIGHT=30 border="0"></a></TD>
</TR>
<TR>
<TD COLSPAN=2><IMG SRC="images2/over_17.gif" WIDTH=146 HEIGHT=71></TD>
</TR>
<TR>
<TD COLSPAN=2><a href="logout.asp"><IMG SRC="images2/over_18.gif" WIDTH=146 HEIGHT=30 border="0"></a></TD>
</TR>
<TR>
<TD COLSPAN=2><IMG SRC="images2/over_19.gif" WIDTH=146 HEIGHT=19></TD>
</TR>
<TR>
<TD COLSPAN=2 background="images2/over_20.gif" width="144" height="93" valign="top"></TD>
</TR>
<TR>
<TD COLSPAN=6><IMG SRC="images2/over_21.gif" WIDTH=741 HEIGHT=25></TD>
</TR>
<TR>
<TD COLSPAN=6><IMG SRC="images2/over_22.gif" WIDTH=741 HEIGHT=1></TD>
</TR>
</TABLE>
</BODY>
</HTML>

//>Rune
Avatar billede eagleeye Praktikant
15. maj 2002 - 21:25 #3
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.
Avatar billede aspprogram Nybegynder
15. maj 2002 - 21:35 #4
så giver den mig følgende besked...

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/medie-projekt/bruger.asp, line 94
Avatar billede skovtrold Nybegynder
15. maj 2002 - 21:37 #5
Har du prøvet det jeg skrev?:

<%
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
%>
Avatar billede aspprogram Nybegynder
15. maj 2002 - 21:44 #6
sorry... havde ikke set at du også havde skrevet end if...
Avatar billede aspprogram Nybegynder
15. maj 2002 - 21:55 #7
så gik den bare ud til loginsiden, og da jeg loggede ind igen, gav den mig første side, og den blev ved med at køre i ring...

www.friserverplads.dk/login.asp

E-mail : pedersen
password : kgp

prøv lige at tjekke det ud...
Avatar billede eagleeye Praktikant
15. maj 2002 - 21:59 #8
<%
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
%>
Avatar billede eagleeye Praktikant
15. maj 2002 - 22:01 #9
øh der findes ikke en UPDATE INTO

Enten hedder det: INSERT INTO
Eller :  UPDATE tabel SET kol=værdi..
Avatar billede aspprogram Nybegynder
15. maj 2002 - 22:07 #10
nu får jeg denne fejl

Microsoft VBScript compilation error '800a041f'

Unexpected 'Next'

/medie-projekt/bruger.asp, line 9

NEXT
^
Avatar billede aspprogram Nybegynder
15. maj 2002 - 22:09 #11
takker....
Avatar billede aspprogram Nybegynder
15. maj 2002 - 22:15 #12
nu er den der næsten...

men den melder denne fejl...

Microsoft VBScript runtime error '800a0007'

Out of memory: 'Session'

/medie-projekt/code_lib.asp, line 44


den med next er lige meget... fandt den
Avatar billede eagleeye Praktikant
15. maj 2002 - 22:15 #13
din førte del skal de sådan her ud:

<%@ 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>

ser det sådan ud?
Avatar billede aspprogram Nybegynder
15. maj 2002 - 22:17 #14
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") &"")
Avatar billede eagleeye Praktikant
15. maj 2002 - 22:18 #15
du så sådan nogle rundt omkring, hvor du kalder forskellige funktion men de ligger vel i include filen?
password(session("mail_login"))
Avatar billede aspprogram Nybegynder
15. maj 2002 - 22:19 #16
nej, jeg har fjernet INTO i UPDATE
Avatar billede aspprogram Nybegynder
15. maj 2002 - 22:21 #17
dette er min include fil:

<%
set Conn = Server.createobject("adodb.connection")
conn.Open "DBQ="& Server.MapPath(".") &"/projekt.mdb; DefaultDir=DBQ="& Server.MapPath("/") &";Driver={Microsoft Access Driver (*.mdb)};"

Response.Buffer = True

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&oslash;rdag", "S&oslash;ndag")
    DatoVis = ugedag(Weekday(dato,2)) &"&nbsp;d.&nbsp;"& Day(dato)&".&nbsp;"& maned(month(dato)) &"&nbsp;"& 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 = "&nbsp;"
    If bodytjek = "" Then bodytjek = "&nbsp;"
    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
%>
Avatar billede eagleeye Praktikant
15. maj 2002 - 22:30 #18
du åbner dine recordste sådan her:

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.
Avatar billede aspprogram Nybegynder
15. maj 2002 - 22:34 #19
ja
Avatar billede eagleeye Praktikant
15. maj 2002 - 22:49 #20
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
Avatar billede aspprogram Nybegynder
15. maj 2002 - 23:23 #21
det virker..... :)
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester