Avatar billede tusseballer Nybegynder
17. november 2003 - 09:42 Der er 9 kommentarer og
1 løsning

Ved gem/ikke gem vidre send side?

Jeg har denne gam formel. Jeg vil gerne have den til at sende brugen til en side hvis det har gemt data ellers hvis den ikke kunne gemme data.

I bunden har jeg dette: Response.Write "Du er nu tilmeldt." når den skriver dette ville jeg gerne have at den sende brugeren til forsiden.

Jeg har så denne kode: Response.Write "Der er fejl i indtasningen eller systemet. Når den melder dette ville jeg gerne have at brugeren bliver sendt tilbare hvor de kom fra med mulighed for rette deres data.

Håber der er en der kan hjælpe.


<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("min_database.mdb")

Sql = "Select Count(*) as Found from mailingliste where (email = '" & Request("email") & "')"
Set Login = conn.Execute(Sql)
if Login("Found") = 1 then
Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen."
end if

if instr(request.form("email"), "@") = 0 then
Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen."
end if

if instr(request.form("email"), ".") = 0 then
Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen."
end if

navn = Request.Form("navn")
email = Request.Form("email")

if navn = "" then
Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen."
end if

if email = "" then
Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen."
end if

    conn.Execute("INSERT INTO mailingliste (navn, email) VALUES ('" & navn & "', '" & email & "')")
    conn.Close
    set conn = nothing
    Response.Write "Du er nu tilmeldt."
%>
Avatar billede crapman Nybegynder
17. november 2003 - 10:09 #1
if not email = "" AND not navn = "" then response.redirect "forside.asp"
Avatar billede bredum Nybegynder
17. november 2003 - 10:13 #2
crapman-> der mangler lige et lille "END IF" (",)
Avatar billede tusseballer Nybegynder
17. november 2003 - 10:17 #3
skal det indsættes isteden for dette:

Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen."

Eller skal det ind efter:

navn = Request.Form("navn")
email = Request.Form("email") og hvad med alle Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen." hvis de ikke skal være det
Avatar billede medions Nybegynder
17. november 2003 - 10:26 #4
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("min_database.mdb")

Sql = "Select Count(*) as Found from mailingliste where ([email] = '" & Request("email") & "')"
Set Login = conn.Execute(Sql)
if Login("Found") = 1 then
Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen."
end if

if instr(request.form("email"), "@") = 0 then
Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen."
end if

if instr(request.form("email"), ".") = 0 then
Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen."
end if

navn = Request.Form("navn")
email = Request.Form("email")

if navn = "" then
Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen."
end if

if email = "" then
Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen."
end if

    conn.Execute("INSERT INTO mailingliste ([navn], [email]) VALUES ('" & navn & "', '" & email & "')")
    conn.Close
    set conn = nothing
    Response.Write "Du er nu tilmeldt."
%>

//>Rune
Avatar billede tusseballer Nybegynder
17. november 2003 - 10:30 #5
medions >>> hvor henvises der til en anden side i koden, det kan jeg ikke lige se?
Avatar billede medions Nybegynder
17. november 2003 - 10:33 #6
Det bliver der helle ikke nogen steder...
Men hvis du har en <form> tag indeholdende en action så bliver den jo vidrestilt!

//>Rune
Avatar billede tusseballer Nybegynder
17. november 2003 - 10:40 #7
ja men denne form sender til en gem form og det er denne, dem ser om data er ok eller ikke. Hvis den så ser at alle data er ok og gemmer det i databasen skal den vise "Du er nu tilmeldt." og send brugen til forsiden.

Hvis den finder en fejl og viser "Der er fejl i indtasningen eller systemet. Prøv igen." skal den derefter sende brugeren tilbage hvor de kom fra.

Ved begge 2 skal den vise "Der er fejl i indtasningen eller systemet. Prøv igen." eller "Du er nu tilmeldt." i et stykke tid og så sende brugeren vidre.
Avatar billede crapman Nybegynder
17. november 2003 - 11:02 #8
Bredum >> Hehe, nej der gør ej... ;)

Du kan jo godt bare lave en linje uden at tage end if med....

Prøv selv med

if string = "hej" then response.write "Hej med dig"
Avatar billede crapman Nybegynder
17. november 2003 - 11:07 #9
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("min_database.mdb")

Sql = "Select Count(*) as Found from mailingliste where (email = '" & Request("email") & "')"
Set Login = conn.Execute(Sql)

navn = Request.Form("navn")
email = Request.Form("email")


if Login("Found") = 1 OR instr(request.form("email"), "@") = 0 OR instr(request.form("email"), ".") = 0 OR navn = "" OR email = "" then
Response.Write "Der er fejl i indtasningen eller systemet. <a href=""tilmelding.asp"">Prøv igen</a>"
else

    conn.Execute("INSERT INTO mailingliste (navn, email) VALUES ('" & navn & "', '" & email & "')")
    conn.Close
    set conn = nothing

response.write "Du er nu tilmeldt <a href=""forside.asp"">Gå til forsiden</a>"
end if
%>
Avatar billede tusseballer Nybegynder
20. november 2003 - 04:52 #10
Takker for den dejlige hjælp
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
Kurser inden for grundlæggende programmering

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