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
12 svar · 214 visningar · startad av ampy
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
%>
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
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]
Det blir detta felmeddelande:
Körningsfel i Microsoft VBScript fel '800a01a8'
Objekt krävs.: 'connect'
/community/regga.asp, rad 17
Nu funkade det. Tack så mycket. Vet du hur man gör så att man kan se hur många medlemmar det är också?
'ö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
Vadå, ska jag öppna databasen. Det vet jag inte hur man gör. Måste man lägga in en kod i databasen?
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.
'ö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]
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.