Notifikationer

Markér alle som læst Log ud

eromaster Nybegynder

13. februar 2002 - 13:33 Der er 5 kommentarer og
1 løsning

Søg i databasen

Jeg skal have søgt efter noget i databasen.
Kildekoden:

<html>
<head>
<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
</head>
<body>
<font face=verdana size=2>
<form method=get action="quiz.asp?mode=AddNew" id=form name=form>
Fornavn og Efternavn*:
<br>
<INPUT id=navn name=navn size="25">
<br>
<br>
Alder*:
<br>
<INPUT id=Alder name=Alder size="25">
<br>
<br>
E-mail adresse*:
<br>
<INPUT id=email name=email size="25">
<br>
<br>
Adresse*:
<br>
<INPUT id=adresse name=adresse size="25">
<br>
<br>
By*:
<br>
<INPUT id=by name=by size="25">
<br>
<br>
Telefon Nummer*:
<br>
<INPUT id=tlf name=tlf size="25">
<br>
<br>
<INPUT type="submit" value="Gå videre til quizen" id="Submit2" name=submit1>
<input type="hidden" value=AddNew name=mode id="Hidden1">
</form>
Alle felter med *, skal udfyldes.
</font>

<%
if request("mode") = "AddNew" then

if request("navn") = ("") or request("alder") = ("") or request("email") = ("") or request("adresse") = ("") or request("by") = ("") or request("tlf") = ("") then
response.Redirect("quiz.asp")
end if

Set DataConn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; "
DSN = dsn & "DBQ=" & server.mappath("db/db.mdb")

DataConn.Open DSN

Set Record = Server.CreateObject("ADODB.RecordSet")
Record.open "Select * From [quizsvar] Order by id", DataConn, 1, 3

Record.AddNew
Record.Fields("navn") = Request("navn")
Record.Fields("alder") = Request("alder")
Record.Fields("email") = Request("email")
Record.Fields("adresse") = Request("adresse")
Record.Fields("by") = Request("by")
Record.Fields("tlf") = Request("tlf")
Record.Fields("ip") = Request.ServerVariables("REMOTE_ADDR")
Record.Fields("tid") = TIME
Record.Fields("dato") = DATE
Record.Update
id = Record("ID")

Record.Close
set Record = nothing
Dataconn.Close

Response.Redirect("spm01.asp?id=" & id)

end if'mode=AddNew
%>

</body>
</html>

Jeg skal bare have lavet sådan, at hvis request.form("navn") allerede er i databasen så skal den bare response.redirect("ups.asp") hvordan gør man det=

Synes godt om

hirayz Nybegynder

13. februar 2002 - 13:42 #1

if request.form("navn") = rs("navn") then
response.redirect("ups.asp")
end if

Synes godt om

coltau Juniormester

13. februar 2002 - 13:47 #2

Record.open "Select * From [quizsvar] where navn=" & Request.Form("navn"), DataConn, 1, 3

if Record.EOF then
Record.AddNew
osv ...
else
Response.Redirect("ups.asp")
end if

Synes godt om

eromaster Nybegynder

13. februar 2002 - 14:27 #3

sådan?
<%
if request("mode") = "AddNew" then

if request("navn") = ("") or request("alder") = ("") or request("email") = ("") or request("adresse") = ("") or request("by") = ("") or request("tlf") = ("") then
response.Redirect("quiz.asp")
end if

Set DataConn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; "
DSN = dsn & "DBQ=" & server.mappath("db/db.mdb")

DataConn.Open DSN

Set Record = Server.CreateObject("ADODB.RecordSet")
Record.open "Select * From [quizsvar] where navn=" & Request.Form("navn"), DataConn, 1, 3

Record.AddNew
Record.Fields("navn") = Request("navn")
Record.Fields("alder") = Request("alder")
Record.Fields("email") = Request("email")
Record.Fields("adresse") = Request("adresse")
Record.Fields("by") = Request("by")
Record.Fields("tlf") = Request("tlf")
Record.Fields("ip") = Request.ServerVariables("REMOTE_ADDR")
Record.Fields("tid") = TIME
Record.Fields("dato") = DATE
Record.Update
id = Record("ID")

else
Response.Redirect("ups.asp")
end if

Record.Close
set Record = nothing
Dataconn.Close

Response.Redirect("spm01.asp?id=" & id)

end if'mode=AddNew
%>

Synes godt om

jhc Nybegynder

13. februar 2002 - 14:43 #4

Hvorfor vil du have følgende med.

sådan?
<%
if request("mode") = "AddNew" then

if request("navn") = ("") or request("alder") = ("") or request("email") = ("") or request("adresse") = ("") or request("by") = ("") or request("tlf") = ("") then
response.Redirect("quiz.asp")
end if

Synes godt om

eromaster Nybegynder

13. februar 2002 - 14:45 #5

det er en form checker! det skal du ikke tænke på

Synes godt om

eromaster Nybegynder

13. februar 2002 - 14:47 #6

har selv fundet ud af det...

<%
if request("mode") = "AddNew" then

if request("navn") = ("") or request("alder") = ("") or request("email") = ("") or request("adresse") = ("") or request("by") = ("") or request("tlf") = ("") then
response.Redirect("quiz.asp")
end if

Set DataConn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; "
DSN = dsn & "DBQ=" & server.mappath("db/db.mdb")
DataConn.Open DSN

Set news = Server.CreateObject("ADODB.RecordSet")
news.open "Select * From [quizsvar] order by id desc;", DataConn
if not news.EOF then
news.MoveFirst
end if
do while not news.EOF

if news("navn") = request("navn") then
response.Redirect("ups.asp?side=samme_user")
end if

news.MoveNext
loop
news.Close
set news = nothing
Dataconn.Close

Set DataConn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; "
DSN = dsn & "DBQ=" & server.mappath("db/db.mdb")

DataConn.Open DSN

Set Record = Server.CreateObject("ADODB.RecordSet")
Record.open "Select * From [quizsvar] Order by id", DataConn, 1, 3

Record.AddNew
Record.Fields("navn") = Request("navn")
Record.Fields("alder") = Request("alder")
Record.Fields("email") = Request("email")
Record.Fields("adresse") = Request("adresse")
Record.Fields("by") = Request("by")
Record.Fields("tlf") = Request("tlf")
Record.Fields("ip") = Request.ServerVariables("REMOTE_ADDR")
Record.Fields("tid") = TIME
Record.Fields("dato") = DATE
Record.Update
id = Record("ID")

Record.Close
set Record = nothing
Dataconn.Close

Response.Redirect("spm01.asp?id=" & id)

end if'mode=AddNew
%>

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

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
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
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

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