Notifikationer

Markér alle som læst Log ud

fld Nybegynder

26. juni 2005 - 20:15 Der er 11 kommentarer og
1 løsning

Popup i stedet for Redirect

Hejsa, er der ikke en som kan lave dette om så der kommer en lille popup boks istede for Redirect.? Koden ser sådan ud:

If Request.Form("Gem") <> "" Then
strError = ""
strNavn = Trim(Request.Form("Navn"))
strEmail = Trim(Request.Form("Email"))
strOverskrift = Trim(Request.Form("Overskrift"))
strKommentar = Trim(Request.Form("Kommentar"))

If Len(strNavn) = 0 Then
strError = "<li>Du skal skrive dit navn!</li>"
ElseIf validateEmail(strEmail) = False Then
strError = "<li>Du skal skrive en gyldig e-mail adresse!</li>"
ElseIf Len(strKommentar) = 0 Then
strError = "<li>Du skal skrive en kommentar!</li>"
End If

If Len(strError) = 0 Then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Guestbook WHERE (ID = 0)"

rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
If (rs.BOF Or rs.EOF) Then
rs.AddNew
rs("Navn") = Server.HTMLEncode(strNavn)
rs("Email") = Server.HTMLEncode(strEmail)
rs("Overskrift") = Server.HTMLEncode(strOverskrift)
rs("Kommentar") = Server.HTMLEncode(strKommentar)
rs("Dato") = Now()
rs("IP") = IP
rs.Update
End If
rs.Close
Set rs = Nothing

Response.Redirect("gaestebog.asp")
Else
strError = "<p><ul><font color=#FF0000>" & strError & "</font></ul></p>"
strMode = "add"
End If
End If
%>

Synes godt om

fld Nybegynder

26. juni 2005 - 20:20 #1

Og det er ikke fordi jeg ikke gider, men jeg fatter INTET af ASP. Jeg kan slet ikke se noget logik i det :-(

Synes godt om

musicchart.dk Nybegynder

26. juni 2005 - 21:33 #2

Hvorfor ændrer du ikke bare din form?

<form name="form1" method="post" action="gaestebog.asp" target="_blank">

... og så smider ovenstående kode ind i gaestebog.asp.

Synes godt om

fld Nybegynder

26. juni 2005 - 21:51 #3

Jeg skrev ;-) : "jeg fatter INTET af ASP. Jeg kan slet ikke se noget logik i det :-("

Så jeg aner ikke hvor jeg skal sætte: <form name="form1" method="post" action="gaestebog.asp" target="_blank"> eller hvad der så sker.? i stedet for.?

Synes godt om

musicchart.dk Nybegynder

26. juni 2005 - 21:55 #4

Må jeg se hele din kode, fra den fil hvor din ovenstående kode kommer fra, samt hele koden i gaestebog.asp ?

(når jeg skrive kode, mener jeg også hele HTML-koden)

Synes godt om

fld Nybegynder

26. juni 2005 - 22:03 #5

Den kommer her:

<%
Session.LCID = 1030

Const adOpenKeyset = 1
Const adLockOptimistic = 3

strMode = Request.QueryString("mode")
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/test15/jaja.mdb") & ";UID=admin;PWD=;"

IP = Request.ServerVariables("REMOTE_ADDR")
FIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

If ((FIP <> "") And (FIP <> "unknown")) Then
IP = FIP
End If

If Request.Form("Gem") <> "" Then
strError = ""
strNavn = Trim(Request.Form("Navn"))
strEmail = Trim(Request.Form("Email"))
strOverskrift = Trim(Request.Form("Overskrift"))
strKommentar = Trim(Request.Form("Kommentar"))

If Len(strNavn) = 0 Then
strError = "<li>Du skal skrive dit navn!</li>"
ElseIf validateEmail(strEmail) = False Then
strError = "<li>Du skal skrive en gyldig e-mail adresse!</li>"
ElseIf Len(strKommentar) = 0 Then
strError = "<li>Du skal skrive en kommentar!</li>"
End If

If Len(strError) = 0 Then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Guestbook WHERE (ID = 0)"

rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
If (rs.BOF Or rs.EOF) Then
rs.AddNew
rs("Navn") = Server.HTMLEncode(strNavn)
rs("Email") = Server.HTMLEncode(strEmail)
rs("Overskrift") = Server.HTMLEncode(strOverskrift)
rs("Kommentar") = Server.HTMLEncode(strKommentar)
rs("Dato") = Now()
rs("IP") = IP
rs.Update
End If
rs.Close
Set rs = Nothing

Response.Redirect("gaestebog.asp")
Else
strError = "<p><ul><font color=#FF0000>" & strError & "</font></ul></p>"
strMode = "add"
End If
End If
%>
<% Dim strTitle
strTitle=""%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="da">
<head>
<meta name="Generator" content="Stone's WebWriter 4" />
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />
<title>Digitalife</title>
<link href="/style/gaestebog.css" rel="stylesheet" type="text/css" />
<link href="/style/style.css" rel="stylesheet" type="text/css" />

</head>

<body>
<div class="vandret">
<div class="baggrund"><div class="parker"><img src="/Logo/parker.jpg" width="326" height="293" alt="" /></div><div class="streg"><img src="Logo/intro.gif" width="800" height="30" usemap="#Map" id="intro" alt="" />
<map name="Map" id="td">
<area shape="rect" coords="159,3,269,28" href="/model.php" target="_parent" alt="Modeller" />
<area shape="rect" coords="271,4,345,27" href="/gaestebog.asp" target="_parent" alt="Gæstebog" />
<area shape="rect" coords="121,1,159,28" href="/info.php" target="_parent" alt="Fotografen" />
<area shape="rect" coords="5,2,61,28" href="/index.php" target="_parent" alt="Galleri" />
<area shape="rect" coords="64,2,118,29" href="/mail.php" target="_parent" alt="Kontakt" />
</map></div>
<div class="logo"><img src="/Logo/ANMALOGO.gif" width="200" height="30" alt="" /></div><span class="overskrift4">Gæstebog</span>
<div class="test"></div><div class="skriv"><form method="post" action="gaestebog.asp">

<fieldset>
<legend>Husk at udfylde alle felter.</legend>

<%=strError%>

<div>
<label for="l1">Navn:</label><input id="l1" type="text" name="Navn" value="<%=strNavn%>" /><br />

<label for="l2">E-mail:</label><input id="l2" type="text" name="Email" value="<%=strEmail%>" /><br />

<label for="l3">Overskrift:</label><input id="l3" type="text" name="Overskrift" value="<%=strOverskrift%>" /><br />

<label for="l4">Indlæg:</label><textarea id="l4" name="Kommentar" rows="6" cols="50"><%=strKommentar%></textarea><br />

<label for="knap"> </label><input id="knap" class="knapper" type="submit" value="Send" name="Gem" /></div>
</fieldset>
</form></div></div>
</div></div>
</body>
</html>
<script language="VBScript" runat="Server">
Function validateEmail(strEmail)
validateEmail = True
If Len(strEmail) < 6 Then
validateEmail = False
End If
If InStr(1, strEmail, "@", 1) < 2 Then
validateEmail = False
End If
If InStr(1, strEmail, ".", 1) = 0 Then
validateEmail = False
End If
pos = InStr(1, strEmail, "@", 1)
If pos < 2 Then
validateEmail = False
Else
pos = InStr(pos+1, strEmail, "@")
If pos > 0 Then
validateEmail = False
End If
End If
End Function
</script>

Synes godt om

musicchart.dk Nybegynder

26. juni 2005 - 22:09 #6

er der kun 1 fil, og den hedder "gaestebog.asp" ?

Synes godt om

fld Nybegynder

26. juni 2005 - 22:18 #7

Nej der er også en some hedder gaestebog.inc:

<div id="indhold">

<h1 style="margin-bottom:0px"><%Response.Write strTitle%></h1>

<%
Select Case strMode
Case "add"
IP = Request.ServerVariables("REMOTE_ADDR")

FIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

if ((FIP <> "") and (FIP <> "unknown")) then
IP = FIP
end if
%>

<form method="post" action="gaestebog.asp">

<fieldset>
<legend>Husk at udfylde alle felter.</legend>

<%=strError%>

<div>
<label for="l1">Navn:</label><input id="l1" type="text" name="Navn" value="<%=strNavn%>" /><br />

<label for="l2">E-mail:</label><input id="l2" type="text" name="Email" value="<%=strEmail%>" /><br />

<label for="l3">Overskrift:</label><input id="l3" type="text" name="Overskrift" value="<%=strOverskrift%>" /><br />

<label for="l4">Indlæg:</label><textarea id="l4" name="Kommentar" rows="6" cols="50"><%=strKommentar%></textarea><br />

<label for="knap"> </label><input id="knap" class="knapper" type="submit" value="Send" name="Gem" /> <input class="knapper" type="button" value="Slet" name="Annuller" onclick="java script:location.href='gaestebog.asp'" /></div>
</fieldset>
</form>
<span>Din IP adresse er: <% Response.Write(IP) %></span>

<%
Case Else
strAddLine = ""
Response.Write strAddLine
strSQL = "SELECT * FROM Guestbook ORDER BY Dato DESC;"
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open tempConn
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then

Do While Not rs.EOF
dtmDato = rs("Dato")
dtmDato = FormatDateTime(dtmDato,vbLongDate) & " kl. " & FormatDateTime(dtmDato,vbLongTime)
Response.Write "<div style='border: solid 1px #ccf;padding: 5px'>Den " & dtmDato & " skrev "
If Len(rs("Email")) > 0 Then
Response.Write "<a class='tlink' href='mailto:" & rs("Email") & "'>" & rs("Navn") & "</a>:<br />"
End If
Response.Write "<b>" & rs("Overskrift") & "</b><br />"
strContent= replace(rs("Kommentar") & "",VbCrLf,"<br />")
Response.Write strContent & "</div><br />"
rs.MoveNext
Loop

Else
Response.Write "<p class='fejl'>Der er endnu ikke nogen, der har skrevet i gæstebogen</p>"
End If
myConn.Close
Set myConn = Nothing
Response.Write strAddLine
End Select
%>

-------------------------------------------------------------------------------------

Så skal du lige lægge mærke til at jeg har taget dette fra min .inc fil og lagt over i min .ASP fil:

<form method="post" action="gaestebog.asp">

<fieldset>
<legend>Husk at udfylde alle felter.</legend>

<%=strError%>

<div>
<label for="l1">Navn:</label><input id="l1" type="text" name="Navn" value="<%=strNavn%>" /><br />

<label for="l2">E-mail:</label><input id="l2" type="text" name="Email" value="<%=strEmail%>" /><br />

<label for="l3">Overskrift:</label><input id="l3" type="text" name="Overskrift" value="<%=strOverskrift%>" /><br />

<label for="l4">Indlæg:</label><textarea id="l4" name="Kommentar" rows="6" cols="50"><%=strKommentar%></textarea><br />

<label for="knap"> </label><input id="knap" class="knapper" type="submit" value="Send" name="Gem" /> <input class="knapper" type="button" value="Slet" name="Annuller" onclick="java script:location.href='gaestebog.asp'" /></div>
</fieldset>
</form>

Synes godt om

fld Nybegynder

26. juni 2005 - 22:21 #8

Du kan se min gb her: http://www.digitalife.dk/gaestebog.asp

Og der er denne her jeg har downloadet: http://www.hjemmesideskolen.dk/guestbook.asp

Synes godt om

fld Nybegynder

26. juni 2005 - 22:23 #9

http://www.hjemmesideskolen.dk/scripts/visit.asp

Synes godt om

fld Nybegynder

26. juni 2005 - 22:35 #10

Kan man få den til at åbne i en <div> i stedet.? Altså når man ikke udfylder e-mail så åbner den med fejlen i samme <div>

Synes godt om

fld Nybegynder

27. juni 2005 - 08:46 #11

Det er der ikke nogen som kan løse.?

Synes godt om

fld Nybegynder

27. juni 2005 - 11:33 #12

Jeg har ikke løst det, men fundet noget som jeg kan leve med.!

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
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
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

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