Søg
Avatar billede xezbeth Nybegynder
05. november 2002 - 11:55 Der er 12 kommentarer og
1 løsning

Tjek om dato er tastet ind

Hej jeg har en form hvor man skal taste dato ind, men når dette ikke er tastet ind skal man blive redirectet til en anden side

til        = tmm & "-" & tdd & "-" & taaaa
if til & " " = " " = "  " THEN
   
    response.Redirect("http://www.mitdomæne.dk/fejl.asp")
men det virker ikke man bliver sendt videre til den rigtige side alligvel
Avatar billede medions Nybegynder
05. november 2002 - 11:56 #1
If tmm = "" AND Then
  Response.Redirect("fejl.asp")
End If

//>Rune
Avatar billede medions Nybegynder
05. november 2002 - 11:57 #2
Du kunne evt. også vælge at valider på dem alle sammen og gøre således:

If tmm = "" And tdd = "" And taaaa = "" Then
  Response.Redirect("fejl.asp")
End If

//>Rune
Avatar billede xezbeth Nybegynder
05. november 2002 - 12:10 #3
nej den sender alligvel videre til den rigtige side, kan det være noget med formen
Avatar billede eagleeye Praktikant
05. november 2002 - 12:13 #4
Prøv med OR i stedet for AND så blvier du send til fejl.asp hvis en af de 3 ikke er indtastet:

If tmm = "" OR tdd = "" OR taaaa = "" Then
  Response.Redirect("fejl.asp")
End If
Avatar billede xezbeth Nybegynder
05. november 2002 - 12:23 #5
nej det virker stadig ikke,
tmm     = request.querystring("tmm")
tdd     = request.querystring("tdd")
taaaa     = request.querystring("taaaa")
    If tmm = "" OR tdd = "" OR taaaa = "" Then
    response.Write("Du skal indtaste dato")

og end if efter sql sætningen, er det forkert????
Avatar billede grunken Nybegynder
05. november 2002 - 12:34 #6
If (length(tmm) = 0) OR (length(tdd) = 0) OR (length(taaaa) = 0) Then
  Response.Redirect("fejl.asp")
Else
  Response.Redirect("ok.asp")
End If

eller da requesten indeholder tal  (tror jeg)!

If (tmm > 0) OR (tdd > 0) OR (taaaa > 0) Then
  Response.Redirect("fejl.asp")
Else
  Response.Redirect("ok.asp")
End If

og btw, hvis det skal virke så skal sqlsætningen kommer EFTER "end if"

-grunken
Avatar billede xezbeth Nybegynder
05. november 2002 - 12:41 #7
nej virker stadig ikke, :-/
jeg har prøvet begge, men det er tekst der kommer ind
Avatar billede grunken Nybegynder
05. november 2002 - 12:51 #8
så er du nok nødt til at paste din kode en gang !
Avatar billede xezbeth Nybegynder
05. november 2002 - 13:04 #9
<!-- #include file="db.inc" -->
<head><title>Untitled Document</title></head>
<body>
<%
id    = request.querystring("ID")
uge     = request.querystring("Uge")
dag     = request.querystring("Dag")
tmm     = request.querystring("tmm")
tdd     = request.querystring("tdd")
taaaa     = request.querystring("taaaa")
    If tmm = null OR tdd = null OR taaaa = null Then
        Response.write("Tast dato ind ")
        Else
        Response.Redirect("oksidetest.asp")
    End If

ordre    = request.querystring("Ordrenr")
kunde     = request.querystring("Kunde")
besk     = request.querystring("Beskrivelse")
paus     = request.querystring("Pauser")
st    = request.querystring("Starttt")
sm    = request.querystring("Startmm")
stt     = request.querystring("Sluttt")
stm     = request.querystring("Slutmm")
mins     = request.querystring("mins")
smin     = request.querystring("smin")

Dim objConnection, strConnect, strSQL
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.Open strConnect

til    = tmm & "-" & tdd & "-" & taaaa           
start     = st & ":" & sm
slut    = stt & ":" & stm    
strSQL  = "INSERT INTO Dagseddel( ID, Uge, Dag, Dato, OrdreNr, Kunde, Beskrivelse, Start, Slut, Pause ) values ('" & id & "', '" & uge & "', '" & dag & "', #" & til & "#, '" & ordre & "', '" & kunde & "', '" & besk & "', '" & start & "', '" & slut & "', '" & paus & "')"
 
objConnection.Execute(strSQL)
response.Write(strSQL)

response.write "<BR><STRONG><CENTER>Din tid er nu blevet registerert.</CENTER></STRONG>"
objConnection.Close
Set objConnection = Nothing
%>
<form action="dagseddeltest.asp" method="post"><div align="center">
<input name="Ny" type="submit" value="Indtast Ny"></div></form>
</body></html>
Avatar billede medions Nybegynder
05. november 2002 - 13:26 #10
<!-- #include file="db.inc" -->
<head><title>Untitled Document</title></head>
<body>
<%
id    = request.querystring("ID")
uge    = request.querystring("Uge")
dag    = request.querystring("Dag")
tmm    = request.querystring("tmm")
tdd    = request.querystring("tdd")
taaaa    = request.querystring("taaaa")
    If tmm = "" OR tdd = "" OR taaaa = "" Then
        Response.write("Tast dato ind ")
        Else
        Response.Redirect("oksidetest.asp")
    End If

ordre    = request.querystring("Ordrenr")
kunde    = request.querystring("Kunde")
besk    = request.querystring("Beskrivelse")
paus    = request.querystring("Pauser")
st    = request.querystring("Starttt")
sm    = request.querystring("Startmm")
stt    = request.querystring("Sluttt")
stm    = request.querystring("Slutmm")
mins    = request.querystring("mins")
smin    = request.querystring("smin")

Dim objConnection, strConnect, strSQL
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.Open strConnect

til    = tmm & "-" & tdd & "-" & taaaa           
start    = st & ":" & sm
slut    = stt & ":" & stm   
strSQL  = "INSERT INTO Dagseddel( ID, Uge, Dag, Dato, OrdreNr, Kunde, Beskrivelse, Start, Slut, Pause ) values ('" & id & "', '" & uge & "', '" & dag & "', #" & til & "#, '" & ordre & "', '" & kunde & "', '" & besk & "', '" & start & "', '" & slut & "', '" & paus & "')"
 
objConnection.Execute(strSQL)
response.Write(strSQL)

response.write "<BR><STRONG><CENTER>Din tid er nu blevet registerert.</CENTER></STRONG>"
objConnection.Close
Set objConnection = Nothing
%>
<form action="dagseddeltest.asp" method="post"><div align="center">
<input name="Ny" type="submit" value="Indtast Ny"></div></form>
</body></html>

//>Rune
Avatar billede grunken Nybegynder
05. november 2002 - 13:28 #11
hehe, jeg har lige blandet lidt sprog sammen så det ville frem sorry *G*

nedenstående skal du !

<!-- #include file="db.inc" -->
<head><title>Untitled Document</title></head>
<body>
<%
id    = request.querystring("ID")
uge    = request.querystring("Uge")
dag    = request.querystring("Dag")
tmm    = request.querystring("tmm")
tdd    = request.querystring("tdd")
taaaa    = request.querystring("taaaa")

If len(tmm) > 0 AND len(tdd) > 0 AND len(taaaa) > 0 Then

ordre    = request.querystring("Ordrenr")
kunde    = request.querystring("Kunde")
besk    = request.querystring("Beskrivelse")
paus    = request.querystring("Pauser")
st    = request.querystring("Starttt")
sm    = request.querystring("Startmm")
stt    = request.querystring("Sluttt")
stm    = request.querystring("Slutmm")
mins    = request.querystring("mins")
smin    = request.querystring("smin")

Dim objConnection, strConnect, strSQL
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.Open strConnect

til    = tmm & "-" & tdd & "-" & taaaa           
start    = st & ":" & sm
slut    = stt & ":" & stm   
strSQL  = "INSERT INTO Dagseddel( ID, Uge, Dag, Dato, OrdreNr, Kunde, Beskrivelse, Start, Slut, Pause ) values ('" & id & "', '" & uge & "', '" & dag & "', #" & til & "#, '" & ordre & "', '" & kunde & "', '" & besk & "', '" & start & "', '" & slut & "', '" & paus & "')"
 
objConnection.Execute(strSQL)
response.Write(strSQL)

response.write "<BR><STRONG><CENTER>Din tid er nu blevet registerert.</CENTER></STRONG>"
objConnection.Close
Set objConnection = Nothing
%>
<form action="dagseddeltest.asp" method="post"><div align="center">
<input name="Ny" type="submit" value="Indtast Ny"></div></form>
</body></html>
<%
Else
  response.Redirect("http://www.mitdomæne.dk/fejl.asp")
End If
%>

-grunken
Avatar billede xezbeth Nybegynder
05. november 2002 - 13:42 #12
tak for hjælpen,
grunken det du har skrevet virker ikke :-/
Avatar billede medions Nybegynder
05. november 2002 - 13:44 #13
Anytime...
Thx 4 Poinz

//>Rune
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
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
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
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
05/1010:31 Min IPAD vil ikke oplade. Af Nørdnot i Mac
04/1018:04 Findes der et "Papir-kurv" symbol, man kan sætte på Firefox og Google Chrome ? (For oven) Af Ikke-ekspert i Browsere
03/1012:14 Ang udskrift Canon mb5050 Af made18 i Printere
02/1021:29 Vedr. Windows 11 version 26H2 Af ErikHg i Fri debat
02/1018:16 Tømme gammel PC for indhold, kan ikke tændes Af Mai i Andet software
White papers
Flere white papers »