Søg
Avatar billede no_doubt Nybegynder
22. februar 2003 - 00:14 Der er 19 kommentarer og
2 løsninger

insert ?

Hvad er der galt med:
<script type="text/JavaScript">
function get_pass(len) {
if (!len) len = 20;
var out = "";
var chars = "1234567890abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHJKLMNOPQRSTUVWXYZ1234567890";
for (i=1; i<=len; i++) out += chars.charAt( Math.random()*Math.round(chars.length-1) );
return out;
}

var pass1 = get_pass(); // Genererer password på 20 tegn
var pass2 = get_pass(8); // Genererer password på 8 tegn
</script>
<%if Request.Form("lager") <> "" then 
response.write pwd
response.end
brugernavn = Request.form("brugernavn") 
kodeord = Request.form("kodeord") 
emailadresse = Request.form("emailadresse") 
set rs = server.CreateObject("ADODB.Recordset") 
set conn = server.CreateObject("ADODB.Connection") 
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("brugersystem.mdb") 
SQL = "INSERT INTO brugersystem(brugernavn, kodeord, emailadresse, oprettelsekode, niveau, oprettet) VALUES ('" & brugernavn & "', '" & kodeord & "' , '" & emailadresse & "', '" & pass1 & "', '" & 1 & "', '" & 0 & "')" 
response.write sql
conn.execute(sql)
response.redirect ("default.asp") 
end if
%>

den melder ikke fejl
http://1q.frip.dk/brugersys/default.asp
Avatar billede erikjacobsen Ekspert
22. februar 2003 - 00:16 #1
Prøv at fjerne response.redirect og se om du får fejl
Avatar billede erikjacobsen Ekspert
22. februar 2003 - 00:18 #2
Iøvrigt kan du ikke bland client-side javascript og asp på den måde
Avatar billede no_doubt Nybegynder
22. februar 2003 - 00:18 #3
jeg for stadig ingen ting..
Avatar billede no_doubt Nybegynder
22. februar 2003 - 00:19 #4
hmm hvad skal jeg så gøre.
Avatar billede erikjacobsen Ekspert
22. februar 2003 - 00:20 #5
Du skriver koderord og kodeord - en af dem må være forkert ;)
Avatar billede erikjacobsen Ekspert
22. februar 2003 - 00:21 #6
Du kunne overveje at fjerne

response.end
Avatar billede erikjacobsen Ekspert
22. februar 2003 - 00:21 #7
Og så skal du lave dit tilfældige password i ASP.
Avatar billede no_doubt Nybegynder
22. februar 2003 - 00:23 #8
kan man bruge;
<script language="jscript" runat="server">
function get_pass(len) {
    if (!len) len = 20;
    var out = "";
    var chars = "1234567890abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHJKLMNOPQRSTUVWXYZ1234567890";
    for (i=1; i<=len; i++) out += chars.charAt( Math.random()*Math.round(chars.length-1) );
    return out;
}

var pass1 = get_pass();  // Genererer password på 20 tegn
var pass2 = get_pass(8);  // Genererer password på 8 tegn

Response.Write( pass1 );
Response.Write( pass2 );
</script>
??
Avatar billede erikjacobsen Ekspert
22. februar 2003 - 00:24 #9
Hvorfor spørger du? Du kan jo prøve.
Avatar billede erikjacobsen Ekspert
22. februar 2003 - 00:25 #10
Generelt om den slags passwords: Drop 0 og O og 1 og l og I - det er
ikke til at se forskel.
Avatar billede no_doubt Nybegynder
22. februar 2003 - 00:37 #11
hvad dælen er der så galt med
set rs = server.CreateObject("ADODB.Recordset") 
set conn = server.CreateObject("ADODB.Connection") 
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("brugersystem.mdb") 
strSQL = "SELECT * FROM brugersystem"
conn.execute(strSQL)
do while rs.EOF
Response.Write ("Der er ingen oprettede brugere")
else
Response.write rs("brugernavn") & " - " & rs("kodeord") & " - " & rs("emailadresse") & " - " & rs("oprettelseskode") & " - " & rs("niveau") & " - " &  rs("oprettet") & "<br>"
rs.movenext
loop
end if

den melder

Microsoft VBScript compilation error '800a03fb'

Expected 'Loop'

/brugersys/default.asp, line 31

else
^
Avatar billede erikjacobsen Ekspert
22. februar 2003 - 00:38 #12
Hvad gør den else og den end if ?
Avatar billede no_doubt Nybegynder
22. februar 2003 - 00:41 #13
vil mene det er hvad den gør hvis recordsættet ikke er tomt.
og else afslutter vel loopet ?
Avatar billede erikjacobsen Ekspert
22. februar 2003 - 00:43 #14
Glem det - jeg hopper ud af spørgsmålet. Du har brug for mere
hjælp end jeg har tid og tålmodighed til.
Avatar billede no_doubt Nybegynder
22. februar 2003 - 00:44 #15
synes altid du forlader.
Avatar billede -master-d- Nybegynder
22. februar 2003 - 00:44 #16
Prøv med denne her :

set rs = server.CreateObject("ADODB.Recordset") 
set conn = server.CreateObject("ADODB.Connection") 
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("brugersystem.mdb") 
strSQL = "SELECT * FROM brugersystem"
Set rs = conn.execute(strSQL)
if Not (rs.BOF or rs.EOF) then
do while rs.EOF
Response.Write ("Der er ingen oprettede brugere")
else
Response.write rs("brugernavn") & " - " & rs("kodeord") & " - " & rs("emailadresse") & " - " & rs("oprettelseskode") & " - " & rs("niveau") & " - " &  rs("oprettet") & "<br>"
rs.movenext
loop
end if
Avatar billede no_doubt Nybegynder
22. februar 2003 - 00:49 #17
virkede ik.
Avatar billede -master-d- Nybegynder
22. februar 2003 - 00:58 #18
prøv med denne her da :

set rs = server.CreateObject("ADODB.Recordset") 
set conn = server.CreateObject("ADODB.Connection") 
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("brugersystem.mdb") 
strSQL = "SELECT * FROM brugersystem"
Set rs = conn.execute(strSQL)
if Not (rs.BOF or rs.EOF) then
do while Not rs.EOF
Response.write rs("brugernavn") & " - " & rs("kodeord") & " - " & rs("emailadresse") & " - " & rs("oprettelseskode") & " - " & rs("niveau") & " - " &  rs("oprettet") & "<br>"
rs.movenext
loop
else
Response.Write ("Der er ingen oprettede brugere")
end if
Avatar billede mccannon Nybegynder
22. februar 2003 - 00:59 #19
det er fordi du har do while i en del af if sætningen og loop i en anden del af sætningen
det kan du ikke
så fjern det else
..
if not rs.eof then
do while
//gørnoget
rs.movenext
loop
else
response.write "der er ingen oprettede brugere"
end if
Avatar billede no_doubt Nybegynder
10. marts 2003 - 15:04 #20
Jamen hvad mon dette spm drejede sig om, *g* hmm...
hvad goer jeg
Avatar billede no_doubt Nybegynder
13. marts 2003 - 19:56 #21
I deler, håber det er ok
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
25/0916:15 Internet forsvinder hele tiden Af TTA i Internetforbindelser
23/0920:49 Fejl på Tv2 Play Af Bukse i Browsere
23/0918:11 VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel
21/0910:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
White papers
Flere white papers »