webForumDet fria alternativet

Hjäääääääälp!!!

ASP

12 svar · 214 visningar · startad av ampy

Medlem sedan feb. 20011 498 inlägg
Frågan#1

Jag håller på med ett community. Men jag vill så att en ska bli medlem och namnet redan finns så ska det stå. Hur gör man?
Ska man lääga in det i den här koden?

<%

IF Request.Form("losen") = Request.Form("losen2") THEN

Set connection = server.createObject("adodb.connection")
connection.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb") & ";"
SQL = "INSERT INTO anvandare (Namn, Losen) VALUES ('" & Request.Form("ID") &"','" & Request.Form("losen") &"')"
set RS = Connection.Execute(SQL)
Response.Redirect("loggain.asp")

ELSE
session("galet") = "Du måste skriva lika lösen i båda fälten!"
Response.Redirect("blimedlem.asp")
END IF
%>

Medlem sedan juni 20003 169 inlägg
#2

Använd sökfunktionen. Ämnet har tagits upp flera gånger tidigare. :)

------------------
"Datorer behöver i framtiden inte väga mer än 1,5 ton."
Popular Mechanics, 1949

Medlem sedan dec. 200012 464 inlägg
#3

Ja, så här t.ex.

<%

if Request.Form("losen") = Request.Form("losen2") then
   Set connection = server.createObject("adodb.connection")
   connection.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb") & ";"
   namn = Request.Form("ID")
   set rs = connection.execute("select 1 from anvandare where namn = '" & namn & "'")
   if  rs.eof then
       SQL = "INSERT INTO anvandare (Namn, Losen) VALUES ('" & namn &"','" & Request.Form("losen") &"')"
       Connection.Execute SQL,,128
       ok = true
   else
       session("galet") = namn & " är redan upptaget!"
       ok = false
   end if
   rs.close
   set rs = nothing
   connection.close
   set connection = nothing
   if ok then
      response.redirect "loggain.asp"
   else
      response.redirect "blimedlem.asp"
   end if
else
   session("galet") = "Du måste skriva lika lösen i båda fälten!"
   Response.Redirect "blimedlem.asp"
end if
%>

red: byt connect till connection
------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 01 jun 2001]

Medlem sedan feb. 20011 498 inlägg
#4

Det blir detta felmeddelande:

Körningsfel i Microsoft VBScript fel '800a01a8'

Objekt krävs.: 'connect'

/community/regga.asp, rad 17

Medlem sedan dec. 200012 464 inlägg
#5

Det skall stå connection i stället.

------------------
essentitia preter non sans multiplicandum

Medlem sedan feb. 20011 498 inlägg
#6

Nu funkade det. Tack så mycket. Vet du hur man gör så att man kan se hur många medlemmar det är också?

Medlem sedan dec. 19998 577 inlägg
#7

såhär... :)

set rs = connection.execute("select count(namn) as cnt from anvandare")
Response.Write rs("cnt")

------------------
Vide rox = new Vide();
rox.learn("C#");

webeye.nu

Medlem sedan dec. 200012 464 inlägg
#8
'öppna databas

sql = "select count(*) as members from anvandare"

set rs = connection.execute (sql)
response.write "Antal medlemmar: " & rs("members")
rs.close
set rs = nothing

'stäng databas

------------------
essentitia preter non sans multiplicandum

Medlem sedan feb. 20011 498 inlägg
#9

Vadå, ska jag öppna databasen. Det vet jag inte hur man gör. Måste man lägga in en kod i databasen?

Medlem sedan dec. 19998 577 inlägg
#10

I din kodsnutt ovan så öppnar du databasen med dessa rader:

Set connection = server.createObject("adodb.connection")
connection.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb") & ";"

------------------
Vide rox = new Vide();
rox.learn("C#");

webeye.nu

Medlem sedan feb. 20011 498 inlägg
#11

Det funkar nu så att man kan se hur många medlemmar det är.

Men det är en till sak jag undrar och det är hur man gör så att man ser alla namnen som är medlemmar.

Medlem sedan dec. 200012 464 inlägg
#12
'öppna databas
sql = "select namn from anvandare"

set rs = connection.execute (sql)
while not rs.eof
response.write "Namn: " & rs("namn") & "<br>"
rs.movenext
wend
rs.close
set rs = nothing

'stäng databas

Du får väl snygga till utskriften.

Tillägg:
Om du vill att dom skall komma i bokstavsordning så får du skriva

sql = "select namn from anvandare order by namn asc"

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 01 jun 2001]

Medlem sedan feb. 20011 498 inlägg
#13

Du är ju riktig duktig på ASP ju.

Det jag vill nu är att alla medlemmar ska få en egen sida där det står information om den medlemmen. Du kan väl maila mig på min e-mail om du vill hjälpa mig.

263 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
126 ms — deklarationer (db)
0 ms — hämta statistik (cache)
133 ms — hämta tråd, inlägg och bilagor (db)
124 ms — ändringar (db)