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

ASP

12 svar · 234 visningar · startad av ampy

Medlem sedan feb. 20011 498 inlägg
Trådstart#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. :)

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

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.

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")
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
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") & ";"
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"
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.

375 ms totalt · 4 externa anrop · v20260731065814-full.d34c6d5a
121 ms — deklarationer (db)
124 ms — hämta statistik (db)
124 ms — hämta tråd, inlägg och bilagor (db)
124 ms — ändringar (db)