Tjena! Felet i login.asp ser ut att vara att du har fått lite extra radbrytningar/missade _, ska nog vara såhär: Tack så mkt! Samma sak igen i login.asp, skriv på en rad så blir det enklare... Tack! Hmm, slarvigt skriven artikel... lägg till Såhär bör det se ut... Fortfarande fel... Nej, fel ordning på lite saker... Man kan ju fundera över hur väl testad denna artikeln är... Han sa att den fungerade för honom... >Han sa att den fungerade för honom... Tack så mycket!!! Reg.asp är fixat men jag skulle gärna vilja ha en sida med status (status för andvändaren, andvändare online etc.). nån som vet hur jag ska göra?? det finns fler artiklar som kan vara bra att använda för att få en fungerande communety. kolla bara lite mera under "Kurser & Artiklar" Här har du lite att jobba vidare på: Tjena igen alla duktiga (och mindre duktiga som jag ;o) ) PelleSoftare!!Problem med community..
jag har skapat en community med stor hjälp av artikeln:
Community del 1 - Inloggning och registrering
Men jag har ett problem...
Jag kan inte skicka data från reg.asp och inte visa login.asp även om författaren (Erx) kan det...
Kan det vara nåt program jag inte installerat??
Felet i reg.asp när jag vill sicka data:
<code>
ADODB.Recordset fel '800a0c93'
Åtgärden är inte tillåten i det här sammanhanget.
/reg.asp, rad 62
</code>
Och i login.asp:
<code>
Kompileringsfel i Microsoft VBScript fel '800a03ea'
Syntaxfel
/login.asp, rad 29
Sql = "Select user,losen from users Where user = '" &
------------------------------------------------------------^
</code>
Tack På Förhand!
/JoakimSv: Problem med community..
Sql = "Select user,losen from users Where user = '" & _
Request.Form("user") & "' And losen = '" & _
Request.form("losen") & "'"
Berätta vad det står på rad 62 i reg.asp så blir det lättar att se felet, orkar inte räkna själv ;)
/JohanSv: Problem med community..
Men nu får jag i stället fram felet:
<code>
Kompileringsfel i Microsoft VBScript fel '800a03ea'
Syntaxfel
/login.asp, rad 44
Where user = '" & Request.Form("user") & "'")
---------------^
</code>
Rad 44 (markerat med >) + några rader omkring..
<code>
Else
Session("inloggad") = "True"
Session("user") = request.form("user")
> Where user = '" & Request.Form("user") & "'")
Response.Redirect "Medlem.asp"
End If
End If
</code>Sv: Problem med community..
Conn.Execute("Update users Set Status = (Status + 0.10) Where user = '" & Request.Form("user") & "'")
/JohanSv: Problem med community..
Nu kommer textboxarna fram men under så får jag felmedelandet:
<Code>
Körningsfel i Microsoft VBScript fel '800a01a8'
Objekt krävs.: 'Conn'
/login.asp, rad 49
</code>Sv: Problem med community..
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & _
Server.MapPath("users.mdb")
efter
Set Conn = Server.CreateObject("ADODB.Connection")
/JohanSv: Problem med community..
<!-- #include file="adovbs.inc" -->
<html>
<head><title>Mitt Community</title></head>
<body>
<%
If Request.querystring("do") = "" Then
'Vi visar formuläret
%>
<form method="POST" target="main" action="login.asp?do=login">
<p>
<input type="text" name="user" size="15"><br>
<input type="password" name="losen" size="15"><br>
<input type="submit" value="OK!""></p>
</form>
<%
Else
'Användaren vill logga in
'Vi kollar efter användarnamnet & lösenordet
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & _
Server.MapPath("users.mdb")
Sql = "Select user,losen from users Where user = '" & _
Request.Form("user") & "' And losen = '" & _
Request.form("losen") & "'"
Set RecSet = Conn.Execute(Sql)
If RecSet.Eof Then
'Felaktig inloggning
Response.Redirect "login.asp"
Else
Session("inloggad") = "True"
Session("user") = request.form("user")
Conn.Execute("Update users Set Status = (Status + 0.10) Where user = '" & Request.Form("user") & "'")
Response.Redirect "Medlem.asp"
End If
End If
Recset.Close
Conn.Close
Rs.close
Set Conn=Nothing
%>
</body></html>
Har bytt plats på Recset.Close och Conn.Close samt tagit bort:
Set Rs = Server.CreateObject("Adodb.RecordSet")
Set RecSet = Server.CreateObject("Adodb.RecordSet")
/JohanSv: Problem med community..
Körningsfel i Microsoft VBScript fel '800a01a8'
Objekt krävs.: 'RecSet'
/login.asp, rad 49
Kan det fattas nåt plugin eller nåt??
/JoakimSv: Problem med community..
<!-- #include file="adovbs.inc" -->
<html>
<head><title>Mitt Community</title></head>
<body>
<%
If Request.querystring("do") = "" Then
'Vi visar formuläret
%>
<form method="POST" target="main" action="login.asp?do=login">
<p>
<input type="text" name="user" size="15"><br>
<input type="password" name="losen" size="15"><br>
<input type="submit" value="OK!""></p>
</form>
<%
Else
'Användaren vill logga in
'Vi kollar efter användarnamnet & lösenordet
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & _
Server.MapPath("users.mdb")
Sql = "Select user,losen from users Where user = '" & _
Request.Form("user") & "' And losen = '" & _
Request.form("losen") & "'"
Set RecSet = Conn.Execute(Sql)
If RecSet.Eof Then
'Felaktig inloggning
Response.Redirect "login.asp"
Else
Session("inloggad") = "True"
Session("user") = request.form("user")
Conn.Execute("Update users Set Status = (Status + 0.10) Where user = '" & Request.Form("user") & "'")
Response.Redirect "Medlem.asp"
End If
Recset.Close
Conn.Close
Set Conn=Nothing
End If
%>
</body></html>
/JohanSv: Problem med community..
Nu funkar inloggningssidan men jag kan inte logga in för då står det så här:
Response-objekt fel 'ASP 0156 : 80004005'
Fel på huvuden
/login.asp, rad 37
HTTP-huvudena har redan skrivits till klientläsaren. Ändringar till HTTP-huvudena måste göras innan sidinnehållet skrivs. Sv: Problem med community..
Inte en chans...
<!-- #include file="adovbs.inc" -->
<%
If Request.querystring("do") = "" Then
'Vi visar formuläret
%>
<html>
<head><title>Mitt Community</title></head>
<body>
<form method="POST" target="main" action="login.asp?do=login">
<p>
<input type="text" name="user" size="15"><br>
<input type="password" name="losen" size="15"><br>
<input type="submit" value="OK!""></p>
</form>
</body></html>
<%
Else
'Användaren vill logga in
'Vi kollar efter användarnamnet & lösenordet
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & _
Server.MapPath("users.mdb")
Sql = "Select user,losen from users Where user = '" & _
Request.Form("user") & "' And losen = '" & _
Request.form("losen") & "'"
Set RecSet = Conn.Execute(Sql)
If RecSet.Eof Then
'Felaktig inloggning
Response.Redirect "login.asp"
Else
Session("inloggad") = "True"
Session("user") = request.form("user")
Conn.Execute("Update users Set Status = (Status + 0.10) Where user = '" & Request.Form("user") & "'")
Response.Redirect "Medlem.asp"
End If
Recset.Close
Conn.Close
Set Conn=Nothing
End If
%>
/JohanSv: Problem med community..
Ska försöka fixa reg.asp nu bara men det blir nog lite lättare så jag försöker själv... Sv: Problem med community..
/JoakimKSv: Problem med community..
Sv: Problem med community..
http://www.pellesoft.nu/login/articles/asp/active_users.asp
http://www.pellesoft.nu/login/articles/asp/online.asp
/JohanSv: Problem med community..
Jag behöver hjälp med att översätta en access jet connection till access..
Koden är:
<Code>
<html>
<head><title>Mitt Community</title></head>
<body>
<!--#include file="adovbs.inc" -->
<!--#include file="check.asp" -->
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db\users.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
sql = "Select * From Mails Where Till = '" & Session("user") & "'"
RecSet.Open sql, Conn, adOpenStatic, adLockOptimistic
Set Recset = Conn.Execute (sql)
%>
Skicka Mess!a>
<%
Do until RecSet.EOF
%>
"><%=RecSet("Titel")%> ">Ta Bort Från <%=RecSet("Fran")%>
<%
if RecSet("Last") = "Nej" Then
Response.Write " Nytt"
End If
%>
<br>
<%
RecSet.MoveNext
Loop
Conn.Close
Recset.Close
Set Conn=Nothing
Set RecSet=Nothing
%>
</body>
</html>
</code>