20. marts 2004 - 10:40
Der er
6 kommentarer og 1 løsning
Fejl i gæstebog
har et fejl i en gæstebog jeg har.. skal have den til at lave et smiley når jeg skriver :) men det virker ikke... håber der er nogen der kan lave det Skriv.asp <html> <head> <title>skriv.asp</title> </head> <body> <% strAdd = Replace(strAdd,":)","<img src=images/smiley.gif>") %> <p><font size="5" face="Verdana"><b>Nyt indlæg</b></font></p> <font face="Verdana" size="2"> <script> function validate(theForm){ if (theForm.navn.value == ""){ alert("Skriv venligst dit navn!"); theForm.navn.focus(); return false; } if (theForm.email.value == "" || theForm.email.value.indexOf('@',1)== -1 || theForm.email.value.indexOf('.',2)==-1){ alert("Skriv en gyldig e-mail!"); theForm.email.focus(); return false; } if (theForm.hjemmeside.value == ""){ alert("Skriv din hjemmeside!"); theForm.hjemmeside.focus(); return false; } if (theForm.kommentar.value == ""){ alert("Skriv din kommentar!"); theForm.kommentar.focus(); return false; } return true; } </script> <form method="POST" action="godkend.asp" onsubmit="return validate(this);" name="opretform0submit1"> <p> Dit navn: <input type="text" name="navn" size="20"></p> <p>Din e-mail: <input type="text" name="email" size="20"></p> <p>Din hjemmeside: <input type="text" name="hjemmeside" size="20"></p> <p>Din kommentar: <textarea rows="4" name="kommentar" cols="20"></textarea></p> <p> <input type="submit" value="Skriv" name="B1"></p> </form> <p> <br><br> </font> </body> </html> Håber i kan hjælpe mig :)
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
20. marts 2004 - 10:43
#1
Du har ikke defineret din strAdd inden du replacer på den... Hvor definere du strAdd ?
20. marts 2004 - 10:44
#2
^^Har intet forstand på det en fra msn sagde jeg skulle sætte den ind.. ? har du en bedere kode ?
20. marts 2004 - 10:47
#3
vis lige siden godkend.asp
20. marts 2004 - 10:48
#4
<% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("gb.mdb") Conn.Open DSN strSQL = "Insert into gb (navn, email, hjemmeside, kommentar, dato) values ('" & Request.Form("navn") & "', '" & Request.Form("email") & "', '" & Request.Form("hjemmeside") & "', '" & Request.Form("kommentar") & "', '" & date & "')" Conn.Execute(strSQL) Conn.Close Set Conn = Nothing Response.Redirect("vis.asp") %>
20. marts 2004 - 10:51
#5
<% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("gb.mdb") Conn.Open DSN function smilies(strInput) smilies = replace(strinput, ":)", "<img src=""images/smiley.gif"">") end function strSQL = "Insert into gb (navn, email, hjemmeside, kommentar, dato) values ('" & Request.Form("navn") & "', '" & Request.Form("email") & "', '" & Request.Form("hjemmeside") & "', '" & smilies(Request.Form("kommentar")) & "', '" & date & "')" Conn.Execute(strSQL) Conn.Close Set Conn = Nothing Response.Redirect("vis.asp") %> Ret den side til det her... Så virker det.
20. marts 2004 - 10:53
#6
Takker :) lige hvad jeg manglet skriver lige en karma til dig os :)
20. marts 2004 - 10:56
#7
Velbekomme ;-)
Kurser inden for grundlæggende programmering