Hej w13
Ser kanon ud... har prøvet at generere, men captcha virker ikke.... kan du se hvor fejlen er ??
<%
tabelnavn = "ado_indhold"
if sprog2 = "uk" then
varsql = "*" ' + uk + fælles
else
varsql = "*" ' dansk + fælles
end if
%>
<%
function TestCaptcha(byval valSession, byval valCaptcha)
dim tmpSession
valSession = Trim(valSession)
valCaptcha = Trim(valCaptcha)
if (valSession = vbNullString) or (valCaptcha = vbNullString) then
TestCaptcha = false
else
tmpSession = valSession
valSession = Trim(Session(valSession))
Session(tmpSession) = vbNullString
if valSession = vbNullString then
TestCaptcha = false
else
valCaptcha = Replace(valCaptcha,"i","I")
if StrComp(valSession,valCaptcha,1) = 0 then
TestCaptcha = true
else
TestCaptcha = false
end if
end if
end if
end function
%>
<script language="javascript">
function RefreshImage(valImageId) {
var objImage = document.images[valImageId];
if (objImage == undefined) {
return;
}
var now = new Date();
objImage.src = objImage.src.split('?')[0] + '?x=' + now.toUTCString();
}
function CheckFelter() {
if(this.document.myForm.navn.value=='') {
alert('Du skal skrive dit navn!');
return false;
}
if(this.document.myForm.email.value=='') {
alert('Du skal skrive din e-mail adresse!');
return false;
}
}
</script>
<%
if request.servervariables("CONTENT_LENGTH") <> 0 then 'spørger om der bliver data tilsendt
%>
<body onload="document.location='default.asp?id2=19'">
<%
tabelnavn ="ado_gaest"
'laver recordsættet til db
set opdatering = server.createobject("ADODB.recordset")
query ="select * from "& tabelnavn &""
opdatering.open query, connect, adopenstatic, adlockoptimistic
'opretter ny linie i db og indskriver tilsendt data
opdatering.addnew
opdatering("dato") = date
opdatering("navn") = trim(request.form("navn"))
opdatering("email") = trim(request.form("email"))
opdatering("www") = trim(request.form("www"))
opdatering("tekst") = trim(request.form("tekst"))
opdatering.update
opdatering.close
%>
Gæstebogen er opdateret<br><br>
Og den er ved at genloade
<%
else 'hvis der ikke bliver tilsendt data
%>
<table cellspacing="0" border="1" cellpadding="5">
<form id="myForm" name="myForm" form action="default.asp?id2=27" method="post" onSubmit="return CheckFelter()">
<tr>
<td colspan="2" class="header">
<% If sprog2 = "uk" then %>
<b>Write in our guestbook</b>
<% Else %>
<b>Skriv en kommentar i vores gæstebog</b>
<% End If %>
</td>
</tr>
<tr>
<td class="indhold">
<% If sprog2 = "uk" then %>
Your name:
<% Else %>
Skriv venligst dit navn:
<% End If %>
</td>
<td align="right"><input name="navn" type="text" size="75" class="adminfeltnyh"></td>
</tr>
<tr>
<td class="indhold">
<% If sprog2 = "uk" then %>
Your e-mail address:
<% Else %>
Din e-mail adresse:
<% End If %>
</td>
<td align="right"><input name="email" type="text" size="75" class="adminfeltnyh"></td>
</tr>
<tr>
<td class="indhold">
<% If sprog2 = "uk" then %>
Your website:
<% Else %>
Evt. din hjemmeside:
<% End If %>
</td>
<td align="right"><input name="www" type="text" size="75" class="adminfeltnyh" value="
http://"></td> </tr>
<tr>
<td valign="top">
<% If sprog2 = "uk" then %>
Your comments:
<% Else %>
Bemærkninger til os:
<% End If %>
</td>
<td align="right"><textarea name="tekst" cols="76" rows="6" class="adminfeltnyh"></textarea></td>
</tr>
<tr>
<td> </td>
<td align="right" valign="top"><a href="java script:void(0)" onclick="RefreshImage('imgCaptcha')" class="valid">
<% If sprog2 = "uk" then %>
Change image
<% Else %>
Skift kombination
<% End If %></a>
<img id="imgCaptcha" src="captcha.asp" />
</td>
</tr>
<tr>
<td> </td>
<td align="right">
<% If sprog2 = "uk" then %>
Write the characters in the image above
<% Else %>
Skriv ovenstående kombinationen i feltet
<% End If %>
<input name="captchacode" type="text" id="captchacode" size="20" class="adminfeltnyh"></td>
</tr>
<tr>
<td colspan="2" align="right"><input type="reset" value=<% If sprog2 = "uk" then %>" Cancel "<% Else %>" Slet "<% End If %> class="loginknap"> <input type="submit" name="btnTest" id="btnTest" value="Send" class="loginknap"></td>
</tr>
<%
if not IsEmpty(Request.Form("btnTest")) then
Response.Write("<tr><td colspan=""2"" align=""center"">")
if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then
Response.Write("<b style=""color:#00CC33"">The code you enter verified.</b>")
else
Response.Write("<b style=""color:#FF0000"">You entered the wrong code.</b>")
end if
Response.Write("</td></tr>" & vbCrLf)
end if
%>
</form>
</table>
<% end if%>
Ny bruger
Nybegynder
Opret
Preview
