Notifikationer

Markér alle som læst Log ud

Slettet bruger

29. marts 2004 - 12:41 Der er 42 kommentarer og
1 løsning

Hjælp til loginsys

Jeg har et community som virker meget godt men den har en fejl den kan ikke oprette en bruger men funktionen er der men virker bare ikke er der en som kan hjælpe??
Det er ASP
På Forhånd Tak

Synes godt om

Slettet bruger

29. marts 2004 - 12:43 #1

community´n er på http://frip.dk/babynet/

Synes godt om

Slettet bruger

29. marts 2004 - 12:45 #2

tryk login

Synes godt om

websam Nybegynder

29. marts 2004 - 12:53 #3

Du må lige smide din kode op så der er noget at se efter fejl i :o)

/Websam

Synes godt om

Slettet bruger

29. marts 2004 - 13:00 #4

<%
'-------------------------------------------------
'ASP Community udviklet af Bjarke Bekhøj -
'bjarke@bekhoj.dk - www.bekhoj.dk - ICQ 37018702 -
'-------------------------------------------------
Response.Buffer = True

mode = Request.QueryString("mode")

'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("community.mdb")
%>
<html>
<head>
<title>Babynet</title>
<style type="text/css">
input { font-family: verdana; font-size: 8pt; }
select { font-family: verdana; font-size: 8pt; }
textarea { font-family: verdana; font-size: 8pt; }
.head { font-family: verdana; font-size: 20pt; font-weight: bold;}
.small { font-family: verdana; font-size: 10pt;}
A:link
{
text-decoration : none;
color : #000000
}
A:visited
{
text-decoration : none;
color : #000000
}
A:active
{
text-decoration : none;
color : #000000
}
A:hover
{
text-decoration : underline;
color : #000000;
font-weight : bold;
}
</style>
</head>
<body background="bamse.gif">

<table style="border-color : #000000" border="1" align="center" width="720" cellpadding="0" cellspacing="0">
<tr>
<td bordercolor="#ffffff" align="center">

<font class="head">Babynet</font>

</td>
</tr>

<tr>
<td bgcolor="#D2D0D0" bordercolor="#000000" align="center">
<font class="small">
<%
'Forskellig menu alt efter om man er logget ind eller ej
if session("brugernavn") <> "" then
%>
l <a href="community.asp">Forsiden</a>
l <a href="community.asp?mode=own_profile">Din profil</a>
l <a href="community.asp?mode=inbox">Mailboks</a>
l <a href="community.asp?mode=bruger_list">Brugerliste</a>
l <a href="http://frip.dk/babynet/Forum/default.asp">Forum</a>
l <a href="http://frip.dk/babynet/chat1/default.asp">Chat</a>
l <a href="community.asp?mode=logud">Logud</a>
l
<% else %>

l <a href="community.asp">Forside</a>
l <a href="community.asp?mode=opret">Opret</a>
l <a href="community.asp?mode=login">Login</a>
l
<% end if %>
</font>
</td>
</tr>

<tr>
<td bordercolor="#ffffff" align="center">

<font class="small">
<br>
<% if mode = "" then

'Tæller antallet af profiler
set rs = Conn.Execute("select count(*) as antal from bruger")
antal_profiler = rs("antal")
rs.close
set rs = nothing
%>
Hejsa og velkommen til ASP Community, der er i øjeblikket <%=antal_profiler%> profiler oprettet.
<br>
Community´et har følgende funktioner:
<table border="0"><tr><td align="left"><font class="small">
<li>Opret profil
<li>Rediger profil
<li>Slette profil
<li>Internt post system
<li>Bruger liste
</font></td></tr></table>
<br>
Alle felter med <b>fed</b> skrift skal udfyldes for at oprette brugeren:<br>
<form method="post" action="community.asp?mode=opret">
<table border="1" bordercolor="#000000">
<tr>
<td bordercolor="#ffffff"><b><font class="small">Brugernavn</font></b></td>
<td bordercolor="#ffffff">
<input type="text" name="brugernavn" value="<%=Request("brugernavn")%>" size="20"></td>
</tr>

<tr>
<td bordercolor="#ffffff"><b><font class="small">Adgangskode</font></b></td>
<td bordercolor="#ffffff">
<input type="password" name="adgangskode" size="20"></td>
</tr>

<tr>
<td bordercolor="#ffffff"><b><font class="small">Email</font></b></td>
<td bordercolor="#ffffff">
<input type="text" name="email" value="<%=Request("email")%>" size="20"></td>
</tr>

<tr>
<td bordercolor="#ffffff"><font class="small">Hjemmeside</font></td>
<td bordercolor="#ffffff">
<input type="text" name="hjemmeside" value="<%=Request("hjemmeside")%>" size="20"></td>
</tr>

<tr>
<td bordercolor="#ffffff"><font class="small">Alder</font></td>
<td bordercolor="#ffffff">
<input type="text" name="alder" value="<%=Request("alder")%>" size="20"></td>
</tr>

<tr>
<td bordercolor="#ffffff"><font class="small">ICQ nummer</font></td>
<td bordercolor="#ffffff">
<input type="text" name="icq" value="<%=Request("icq")%>" size="20"></td>
</tr>

<tr>
<td bordercolor="#ffffff"><font class="small">Fri tekst</font></td>
<td bordercolor="#ffffff"><textarea cols="20" rows="6" name="fri_tekst"><%=Request("fri_tekst")%></textarea></td>
</tr>

<tr>
<td bordercolor="#ffffff"> </td>
<td bordercolor="#ffffff"><input type="submit" value="Opret"></td>
</tr>

</table>
</form>
<% end if %>

<% if mode = "login" then

'Hvis brugeren har submittet login formen
if Request.ServerVariables("REQUEST_METHOD") = "POST" then

'Tjecker om felterner er udfydlt
if Request.Form("brugernavn") <> "" AND Request.Form("adgangskode") <> "" then

Sql = "select * from bruger where brugernavn = '" & Request.Form("brugernavn") & "'"
Set rs = Conn.Execute(sql)

'Tjecker om brugeren eksisterer
if rs.EOF or rs.BOF then
Response.Write("<font color='red'><b>Brugernavnet eksisterer ikke</font></b><br>")
else

'tjecker om passwordsne matcher hinanden
if rs("brugerkode") = Request.Form("adgangskode") then

Session("brugernavn") = Rs("brugernavn")
Response.Redirect("community.asp")

else
Response.Write("<font color='red'><b>Adgangskoden er forkert<br></b></font>")
end if
end if

rs.Close
set rs = nothing

else
Response.Write("<font color='red'><b>Du har ikke udfyldt felterne</b></font><br>")
end if

end if
%>

Login i systemet og få adgang til funktionerne:<br>
<form method="post" action="community.asp?mode=login">
<table border="1" bordercolor="#000000">

<tr>
<td bordercolor="#ffffff"><font class="small">Brugernavn</font></td>
<td bordercolor="#ffffff">
<input type="text" name="brugernavn" size="20"></td>
</tr>

<tr>
<td bordercolor="#ffffff"><font class="small">Password</font></td>
<td bordercolor="#ffffff">
<input type="password" name="adgangskode" size="20"></td>
</tr>

<tr>
<td bordercolor="#ffffff"></td>
<td bordercolor="#ffffff"><input type="submit" value="Login"></td>
</tr>
</table>
</form>

<% end if %>

<% if mode = "logud" then

Session.Abandon
Response.Redirect("community.asp")
end if %>

<% if mode = "own_profile" then

'Tjecker om brugeren er logget ind
if session("brugernavn") = "" then
Response.Redirect("community.asp?mode=login")
end if

'Henter brugerens profil
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from bruger where brugernavn = '" & Session("brugernavn") & "'"
rs.open sql, conn, 1, 3

if Request.ServerVariables("REQUEST_METHOD") = "POST" then

'Opdaterer felterner
rs.update
rs("brugerkode") = Server.HTMLEncode(Request("adgangskode"))
rs("brugeralder") = Server.HTMLEncode(Request("alder"))
rs("brugeremail") = Server.HTMLEncode(Request("email"))
rs("brugerHjemmeside") = Server.HTMLEncode(Request("hjemmeside"))
rs("brugerIcq") = Server.HTMLEncode(Request("icq"))
rs("brugerTekst") = Server.HTMLEncode(Request("fri_tekst"))
rs.update

end if
%>
Rediger din profil:
<form method="post" action="community.asp?mode=own_profile">
<table border="1" bordercolor="#000000">
<tr>
<td bordercolor="#ffffff"><font class="small">Brugernavn</font></td>
<td bordercolor="#ffffff"><font class="small"><%=rs("brugernavn")%></font> </td>
</tr>

<tr>
<td bordercolor="#ffffff"><font class="small">Adgangskode</font></td>
<td bordercolor="#ffffff">
<input type="text" name="adgangskode" value="<%=rs("brugerKode")%>" size="20"></td>
</tr>

<tr>
<td bordercolor="#ffffff"><font class="small">Email</font></td>
<td bordercolor="#ffffff">
<input type="text" name="email" value="<%=rs("brugeremail")%>" size="20"></td>
</tr>

<tr>
<td bordercolor="#ffffff"><font class="small">Hjemmeside</font></td>
<td bordercolor="#ffffff">
<input type="text" name="hjemmeside" value="<%=rs("brugerhjemmeside")%>" size="20"></td>
</tr>

<tr>
<td bordercolor="#ffffff"><font class="small">Alder</font></td>
<td bordercolor="#ffffff">
<input type="text" name="alder" value="<%=rs("brugeralder")%>" size="20"></td>
</tr>

<tr>
<td bordercolor="#ffffff"><font class="small">ICQ nummer</font></td>
<td bordercolor="#ffffff">
<input type="text" name="icq" value="<%=Rs("brugericq")%>" size="20"></td>
</tr>

<tr>
<td bordercolor="#ffffff"><font class="small">Fri tekst</font></td>
<td bordercolor="#ffffff"><textarea cols="20" rows="6" name="fri_tekst"><%=Rs("brugertekst")%></textarea></td>
</tr>

<tr>
<td bordercolor="#ffffff"> </td>
<td bordercolor="#ffffff"><input type="submit" value="Opdater" id=submit1 name=submit1></td>
</tr>

</table>
</form>

<%
rs.close
set rs = nothing
end if %>

<% if mode = "inbox" then

'Tjecker om brugeren er logget ind
if session("brugernavn") = "" then
Response.Redirect("community.asp?mode=login")
end if

'Opbygger recordset
set rs = Conn.Execute("select * From mail where mailModtager = '" & Session("brugernavn") & "' order by mailDato desc")
%>
Klik på emnet for at læse en email:<br><br>
<table border="0">
<tr>
<td bgcolor="#D2D0D0"><font class="small"><b>Afsender</b></font></td>
<td bgcolor="#D2D0D0"><font class="small"><b>Emne</b></font></td>
<td bgcolor="#D2D0D0"><font class="small"><b>Dato</b></font></td>
<td bgcolor="#D2D0D0"></td>
</tr>
<% if rs.eof or rs.bof then %>
<tr>
<td colspan="3" align="center"><font class="small">Ingen meddelser</font></td>
</tr>
<% else
Do until rs.eof %>
<tr>
<td><font class="small"><%=rs("mailAfsender")%></font></td>
<td><font class="small"><a href="community.asp?mode=read_mail&mailid=<%=rs("mailid")%>"><%=rs("mailEmne")%></a></font></td>
<td><font class="small"><%=rs("mailDato")%></font></td>
<td>
<%
'Forskelligt billede alt efter om emailen er læst/ulæst
if rs("mailread") <> True then %>
<img src="mail_unread.gif">
<% else %>
<img src="mail_read.gif">
<% end if %>
</td>
</tr>
<% rs.movenext
loop
end if %>
</table>

<br>
<br>
<a href="community.asp?mode=ny_email">Ny email</a>

<%
rs.close
end if %>

<% if mode = "read_mail" then

'Tjecker om brugeren er logget ind
if session("brugernavn") = "" then
Response.Redirect("community.asp?mode=login")
end if

'Hiver info om emailen frem:
Set rs = Conn.Execute("select * from mail where mailid = " & Request.QueryString("mailid"))
Conn.Execute("update mail set mailread = True")

'Tjecker om emailen tilhører brugeren der vil læse den
if rs("mailmodtager") <> Session("brugernavn") then
Response.Redirect("inbox.asp")
end if
%>
<table border="1" bordercolor="#000000">
<tr>
<td bordercolor="#ffffff"><b><font class="small">Afsender</b></font></td>
<td bordercolor="#ffffff"><font class="small"><%=rs("mailAfsender")%></font> </td>
</tr>

<tr>
<td bordercolor="#ffffff"><b><font class="small">Emne</b></font></td>
<td bordercolor="#ffffff"><font class="small"><%=rs("mailEmne")%></font> </td>
</tr>

<tr>
<td bordercolor="#ffffff"><b><font class="small">Dato</b></font></td>
<td bordercolor="#ffffff"><font class="small"><%=rs("mailDato")%></font> </td>
</tr>

<tr>
<td bordercolor="#ffffff"><b><font class="small">Besked</b></font></td>
<td bordercolor="#ffffff"><font class="small"><%=rs("mailBesked")%></font> </td>
</tr>
</table>
<br>
l <a href="community.asp?mode=inbox">Indbakke</a>
l <a href="community.asp?mode=delete_email&mailid=<%=rs("mailid")%>">Slet</a>
l <a href="Community.asp?mode=ny_email">Ny email</a>
l

<% end if %>

<% if mode = "delete_email" then

'Tjecker om brugeren er logget ind
if session("brugernavn") = "" then
Response.Redirect("community.asp?mode=login")
end if

'Sletter email
Set rs = Conn.Execute("select * from mail where mailid = " & Request.QueryString("mailid"))

'Tjecker om mailen tilhører brugeren
if rs("mailModtager") = Session("brugernavn") then
conn.Execute("delete from mail where mailid = " & Request.QueryString("mailid") & "")
end if

Response.Redirect("community.asp?mode=inbox")
end if %>

<% if mode = "ny_email" then

'Tjecker om brugeren er logget ind
if session("brugernavn") = "" then
Response.Redirect("community.asp?mode=login")
end if

'Hvis brugeren har valgt og sende en email:
if Request("modtager") <> "" AND Request("emne") <> "" AND Request("besked") <> "" then

'Lægger værdierne ned i variabler
modtager = Request.Form("modtager")
emne = Server.HTMLEncode(Request.Form("emne"))
besked = Server.HTMLEncode(Request.Form("besked"))

Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from mail"
rs.open sql, conn, 1, 3

rs.addnew
rs("mailmodtager") = modtager
rs("mailafsender") = Session("brugernavn")
rs("mailEmne") = emne
rs("mailbesked") = besked
rs("mailDato") = Now()
rs.update

rs.close
set rs = Nothing
Response.Redirect("community.asp?mode=inbox")
end if
%>

Skriv ny email:<br>
<form method="post" action="community.asp?mode=ny_email">
<table border="1" bordercolor="#000000">
<tr>
<td bordercolor="#ffffff"><b><font class="small">Modtager</font></b></td>
<td bordercolor="#ffffff"><select name="modtager">
<%
'Hiver alle brugerne ud i en select boks
set rs = Conn.Execute("select * from bruger")
Do until rs.eof
navn = rs("brugernavn")
%><option value="<%=navn%>"><%=navn%></option>
<% rs.movenext
loop
rs.close
set rs = nothing
%>
</select>
</td>
</tr>
<tr>
<td bordercolor="#ffffff"><b><font class="small">Emne</font></b></td>
<td bordercolor="#ffffff">
<input type="text" name="emne" size="20"></td>
</tr>

<tr>
<td bordercolor="#ffffff"><b><font class="small">Besked</font></b></td>
<td bordercolor="#ffffff"><textarea name="besked" cols="25" rows="10"></textarea></td>
</tr>

<tr>
<td bordercolor="#ffffff"> </td>
<td bordercolor="#ffffff"><input type="submit" value="Send"></td>
</tr>
</table>
<% end if %>

<% if mode = "bruger_list" then

'Hiver alle brugeren ud:
Set rs = Conn.Execute("select * from bruger order by brugernavn")
%>
Her er en komplet liste over alle brugere:<br>
<table border="1" bordercolor="#000000">
<tr>
<td bordercolor="#ffffff" bgcolor="#D2D0D0"><font class="small"><b>Brugernavn</b></font></td>
<td bordercolor="#ffffff" bgcolor="#D2D0D0"><font class="small"><b>Alder</b></font></td>
</tr>

<% Do until rs.eof %>

<tr>
<td bordercolor="#ffffff"><font class="small"><a href="community.asp?mode=profil&id=<%=rs("brugerid")%>"><%=rs("brugernavn")%></a></font> </td>
<td bordercolor="#ffffff"><font class="small"><%=rs("brugeralder")%></font> </td>
</tr>
<%
rs.movenext
loop
rs.close
set rs = nothing
%>
</table>
<% end if %>

<% if mode = "profil" then

Set rs = Conn.Execute("select * from bruger where brugerid = " & Request.QueryString("id"))
%>
<table border="1" bordercolor="#000000">
<tr>
<td bordercolor="#ffffff"><font class="small">Brugernavn</font></td>
<td bordercolor="#ffffff"><font class="small"><%=rs("brugernavn")%></font></font> </td>
</tr>

<tr>
<td bordercolor="#ffffff"><font class="small">Email</font></td>
<td bordercolor="#ffffff"><font class="small"><%=rs("brugeremail")%></font> </td>
</tr>

<tr>
<td bordercolor="#ffffff"><font class="small">Hjemmeside</font></td>
<td bordercolor="#ffffff"><font class="small"><%=rs("brugerhjemmeside")%></font> </td>
</tr>

<tr>
<td bordercolor="#ffffff"><font class="small">Alder</font></td>
<td bordercolor="#ffffff"><font class="small"><%=rs("brugeralder")%></font> </td>
</tr>

<tr>
<td bordercolor="#ffffff"><font class="small">ICQ nummer</font></td>
<td bordercolor="#ffffff"><font class="small"><%=Rs("brugericq")%></font> </td>
</tr>

<tr>
<td bordercolor="#ffffff"><font class="small">Fri tekst</font></td>
<td bordercolor="#ffffff"><font class="small"><%=Rs("brugertekst")%></font> </td>
</tr>

</table>
<%
rs.close
set rs = nothing

end if %>
<br><br></font>
</td>
</tr>

<tr>
<td align="center">
<font class="small">
ASP Community
</font>
</td>
</tr>
</table>
</body>
</html>
<%
'Lukker connection
conn.close
set conn = nothing
%>

Synes godt om

Slettet bruger

29. marts 2004 - 13:01 #5

det er community.asp

Synes godt om

websam Nybegynder

29. marts 2004 - 13:07 #6

Du har ikke nogen steder i dette hvor du faktisk opretter et medlem du har godt nok formularen men du har ikke noget kode der gemmer brugerens oplysninger i databasen alt efter hvad jeg lige kan se :o)

/Websam

Synes godt om

Slettet bruger

29. marts 2004 - 13:08 #7

jo men den skal da være i dette dokument ikk??

Synes godt om

websam Nybegynder

29. marts 2004 - 13:12 #8

Altså mangler du noget i stilen med dette til at tilføje brugeren i databasen :

<% if mode = "opret" then

Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from tabel"
rs.open sql, conn, 1, 3

rs.addnew
rs("1. felt") = Request.form("formfelt1")
rs("2. felt") = Request.form("formfelt2")
rs.update

rs.close
set rs = Nothing
end if
%>

Synes godt om

websam Nybegynder

29. marts 2004 - 13:13 #9

Hvor har du det kode der tilføjer til databasen henne ?

Synes godt om

Slettet bruger

29. marts 2004 - 13:19 #10

hele community´n er i denne kode jeg har ikke andre koder til den jo en database i acces men ellers ikke flere sider det men kan den kode du har sat op på siden her "opret" ikk bruges?? og hvor skal jeg sætte den ind...??

<br>
Alle felter med <b>fed</b> skrift skal udfyldes for at oprette brugeren:<br>
<form method="post" action="community.asp?mode=opret">
<table border="1" bordercolor="#000000">
<tr>
<td bordercolor="#ffffff"><b><font class="small">Brugernavn</font></b></td>
<td bordercolor="#ffffff">
<input type="text" name="brugernavn" value="<%=Request("brugernavn")%>" size="20"></td>
</tr>

<tr>
<td bordercolor="#ffffff"><b><font class="small">Adgangskode</font></b></td>
<td bordercolor="#ffffff">
<input type="password" name="adgangskode" size="20"></td>
</tr>

<tr>
<td bordercolor="#ffffff"><b><font class="small">Email</font></b></td>
<td bordercolor="#ffffff">
<input type="text" name="email" value="<%=Request("email")%>" size="20"></td>
</tr>

<tr>
<td bordercolor="#ffffff"><font class="small">Hjemmeside</font></td>
<td bordercolor="#ffffff">
<input type="text" name="hjemmeside" value="<%=Request("hjemmeside")%>" size="20"></td>
</tr>

<tr>
<td bordercolor="#ffffff"><font class="small">Alder</font></td>
<td bordercolor="#ffffff">
<input type="text" name="alder" value="<%=Request("alder")%>" size="20"></td>
</tr>

<tr>
<td bordercolor="#ffffff"><font class="small">ICQ nummer</font></td>
<td bordercolor="#ffffff">
<input type="text" name="icq" value="<%=Request("icq")%>" size="20"></td>
</tr>

<tr>
<td bordercolor="#ffffff"><font class="small">Fri tekst</font></td>
<td bordercolor="#ffffff"><textarea cols="20" rows="6" name="fri_tekst"><%=Request("fri_tekst")%></textarea></td>
</tr>

<tr>
<td bordercolor="#ffffff"> </td>
<td bordercolor="#ffffff"><input type="submit" value="Opret"></td>
</tr>

</table>
</form>
<% end if %>

Denne tabel må jo være til at oprette bruger men der er ikke noget kode der ligner den du har sat op herinde... Kan den bruges??

Synes godt om

websam Nybegynder

29. marts 2004 - 13:23 #11

så skal jeg have alt info om felt navne i databasen for at få det til at virke

/websam

Synes godt om

Slettet bruger

29. marts 2004 - 13:25 #12

har du msn??

Synes godt om

Slettet bruger

29. marts 2004 - 13:32 #13

der er <bruger> og <mail> i databadsen

Synes godt om

Slettet bruger

29. marts 2004 - 13:34 #14

i bruger kan jeg selv skrive nye bruger og deres oplysninger. Navnet på db er community,mdb

Synes godt om

websam Nybegynder

29. marts 2004 - 13:35 #15

ja men jeg skal bruge felt navnene i tabellen bruger

Synes godt om

Slettet bruger

29. marts 2004 - 13:35 #16

i mail kan jeg slette breve der er sent frem og tilbage til brugerne når de er logget ind

Synes godt om

Slettet bruger

29. marts 2004 - 13:37 #17

brugerId brugerNavn brugerKode brugerAlder brugerEmail brugerHjemmeside brugerIcq brugerTekst
4 30 http://www.kms-webdesign.dk.dk 192742940 Fri tekst
5 21 http://et.1go.dk
6 PP kt

Det her det er kopieret fra tabbel i db

Synes godt om

Slettet bruger

29. marts 2004 - 13:38 #18

du kan bruge <PP> som bruger navn og <kt> som pasw. hvis du skal ind

Synes godt om

websam Nybegynder

29. marts 2004 - 13:38 #19

ok hæng på et par minutter

Synes godt om

websam Nybegynder

29. marts 2004 - 13:54 #20

Prøv at tilføje dette øverst på din side :

if mode = "opret" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from bruger"
rs.open sql, conn, 1, 3

rs.addnew
rs("brugerNavn") = Request.form("brugernavn")
rs("brugerKode") = Request.form("adgangskode")
rs("brugerAlder") = Request.form("alder")
rs("brugerEmail") = Request.form("email")
rs("brugerHjemmeside") = Request.form("hjemmeside")
rs("brugerIcq") = Request.form("icq")
rs("brugerTekst") = Request.form("fri_tekst")
rs.update

rs.close
set rs = Nothing
end if

Lige under disse linier :

Response.Buffer = True

mode = Request.QueryString("mode")

/Websam

Synes godt om

Slettet bruger

29. marts 2004 - 13:58 #21

oppe i head??

Synes godt om

websam Nybegynder

29. marts 2004 - 14:01 #22

Lige under disse linier :

Response.Buffer = True

mode = Request.QueryString("mode")

øverst på din side

Synes godt om

Slettet bruger

29. marts 2004 - 14:04 #23

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/babynet/community.asp, line 28

Lige under disse linier :
-----------^

Synes godt om

Slettet bruger

29. marts 2004 - 14:04 #24

det skriver den når siden bliver åben..

Synes godt om

Slettet bruger

29. marts 2004 - 14:06 #25

http://frip.dk/babynet/ prøv at tryk login

Synes godt om

websam Nybegynder

29. marts 2004 - 14:07 #26

Du skal kun tilføje dette :

if mode = "opret" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from bruger"
rs.open sql, conn, 1, 3

rs.addnew
rs("brugerNavn") = Request.form("brugernavn")
rs("brugerKode") = Request.form("adgangskode")
rs("brugerAlder") = Request.form("alder")
rs("brugerEmail") = Request.form("email")
rs("brugerHjemmeside") = Request.form("hjemmeside")
rs("brugerIcq") = Request.form("icq")
rs("brugerTekst") = Request.form("fri_tekst")
rs.update

rs.close
set rs = Nothing
end if

og ikke alt andet :o)

Synes godt om

Slettet bruger

29. marts 2004 - 14:10 #27

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/babynet/community.asp, line 12

<Dette skriver den når jeg trykker opret>

Synes godt om

websam Nybegynder

29. marts 2004 - 14:13 #28

og hvad er linie 12 ?

Synes godt om

Slettet bruger

29. marts 2004 - 14:18 #29

1)<%
2)'-------------------------------------------------
3)'ASP Community udviklet af Bjarke Bekhøj -
4)'bjarke@bekhoj.dk - www.bekhoj.dk - ICQ 37018702 -
5)'-------------------------------------------------
6)Response.Buffer = True

7)mode = Request.QueryString("mode")
8)if mode = "opret" then
9) Set rs = Server.CreateObject("ADODB.Recordset")
10) sql = "select * from bruger"
11) rs.open sql, conn, 1, 3

12) rs.addnew
rs("brugerNavn") = Request.form("brugernavn")
rs("brugerKode") = Request.form("adgangskode")

>denne her hvis det er helt oppe fra %<

Synes godt om

Slettet bruger

29. marts 2004 - 14:20 #30

kan der stå sql når det er acces

Synes godt om

Slettet bruger

29. marts 2004 - 14:26 #31

er du stadigvæk her??

Synes godt om

websam Nybegynder

29. marts 2004 - 14:32 #32

Prøv lige at sætte dette ind istedet for det det andet :

if mode = "opret" then
Sql = "Insert Into Bruger (brugerNavn, brugerKode, brugerAlder, brugerEmail, brugerHjemmeside, brugerIcq, brugerTekst) Values ("
Sql = Sql & " '"&Request.form("brugernavn")&"', "
Sql = Sql & " '"&Request.form("adgangskode")&"', "
Sql = Sql & " '"&Request.form("alder")&"', "
Sql = Sql & " '"&Request.form("email")&"', "
Sql = Sql & " '"&Request.form("hjemmeside")&"', "
Sql = Sql & " '"&Request.form("icq")&"', "
Sql = Sql & " '"&Request.form("fri_tekst")&"', "
Conn.Execute(Sql)
end if

Synes godt om

Slettet bruger

29. marts 2004 - 14:34 #33

Microsoft VBScript runtime error '800a01a8'

Object required: 'Conn'

/babynet/community.asp, line 18

Synes godt om

Slettet bruger

29. marts 2004 - 14:34 #34

Synes godt om

websam Nybegynder

29. marts 2004 - 14:38 #35

Flyt disse linier :

'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("community.mdb")

op over denne :

Response.Buffer = True

Synes godt om

Slettet bruger

29. marts 2004 - 14:41 #36

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/babynet/community.asp, line 22

Synes godt om

websam Nybegynder

29. marts 2004 - 14:47 #37

Lille fejl skift dette :

if mode = "opret" then
Sql = "Insert Into Bruger (brugerNavn, brugerKode, brugerAlder, brugerEmail, brugerHjemmeside, brugerIcq, brugerTekst) Values ("
Sql = Sql & " '"&Request.form("brugernavn")&"', "
Sql = Sql & " '"&Request.form("adgangskode")&"', "
Sql = Sql & " '"&Request.form("alder")&"', "
Sql = Sql & " '"&Request.form("email")&"', "
Sql = Sql & " '"&Request.form("hjemmeside")&"', "
Sql = Sql & " '"&Request.form("icq")&"', "
Sql = Sql & " '"&Request.form("fri_tekst")&"')"
Conn.Execute(Sql)
end if

Synes godt om

Slettet bruger

29. marts 2004 - 14:52 #38

Mange Tak for HJÆLPEN!!!
Kan man lave sådan at man får en mail om det som Webmaster når folk har ooprettet sig?? *Husk at du skal trykke svar ude i venstre side*

Synes godt om

websam Nybegynder

29. marts 2004 - 14:55 #39

Ja men det tager noget tid

Synes godt om

Slettet bruger

29. marts 2004 - 14:58 #40

vil du gøre sådan??

Synes godt om

websam Nybegynder

29. marts 2004 - 14:59 #41

Opret et nyt spørgsmål

Synes godt om

Slettet bruger

29. marts 2004 - 15:03 #42

ok den kommer til at være i denne menu og kommer til at hedde Mail

Synes godt om

Slettet bruger

29. marts 2004 - 15:16 #43

Den hedder Hjælp til Mail og ligger her http://eksperten.dk/spm/483328

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Se alle it-kurser fra Computerworld Kurser

IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Se alle it-kurser

Flere spørgsmål fra Småopgaver kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Negativ billeder på samsung Af ALICE i Småopgaver	2	16/01/202610:29	16/01/202618:31
Flytte mappe fra stationær til bærbar Af valby i Småopgaver	20	07/05/202520:51	10/05/202513:43
Hjælp til DC motorstyring Af axel21 i Småopgaver	7	06/03/202522:34	10/03/202518:51
Gode råd til kommende supporter Af SilentSloth i Småopgaver	4	31/12/202423:10	01/01/202515:09
Udregning af vinkel på brædder. Af Peter i Småopgaver	14	11/12/202415:12	13/12/202415:40

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS