Pass #

Hej... jeg har denne kode #


<%
' --------------------------------------------------------------------------------
' web: http://www.kasp.dk
' mail: kasp@kasp.dk
' icq: 113813398
' msn: admin@kasp.dk
' --------------------------------------------------------------------------------
Const adOpenKeyset = 1
Const adLockOptimistic = 3

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

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
    strError = ""
    strNavn = Trim(Request.Form("Navn"))
    strEmail = Trim(Request.Form("Email"))
    strKommentar = Trim(Request.Form("Kommentar"))
    If Len(strNavn) = 0 Then
        strError = "<li>Navn, tak !!</li>"
    ElseIf validateEmail(strEmail) = False Then
        strError = "<li>Din rigtige mail !!</li>"
    ElseIf Len(strKommentar) = 0 Then
        strError = "<li>skriv dit tag !!!</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("Kommentar") = Server.HTMLEncode(strKommentar)
            rs("Dato") = Now()
            rs.Update
        End If
        rs.Close
        Set rs = Nothing
    Else
        strError = "<p><ul><font color=#000000>" & strError & "</font></ul></p>"
        strMode = "add"
    End If
End If
%>
<html>

<head>
<title>Gæstebogen</title> <LINK REL="stylesheet" HREF="./main[2].css" TYPE="text/css"/>
<STYLE TYPE="text/css">
<!--
a:active {  color: #FFFFFF}
a:hover {  color: #000000}
a:link {  color: #000000; text-decoration: underline}
a:visited {  color: #000000; text-decoration: underline}
-->
</STYLE>
</head>

<body BGCOLOR="F0F0F0">
<div align="center"><left><STYLE TYPE="text/css">

</STYLE> <table border="0" width="100%" cellspacing="0" cellpadding="0" style="border-left: 0px solid rgb(0,0,0); border-right: 0px solid rgb(0,0,0); border-top: 0px solid rgb(0,0,0); border-bottom: 0px solid rgb(0,0,0)" ALIGN="LEFT" HEIGHT="100%">
<tr> <td width="100%" HEIGHT="2"><p><FONT FACE="Arial, Tahoma, Verdana, Helvetica;" SIZE="4" COLOR="#000000"></FONT></td></tr>
<tr VALIGN="TOP"> <td width="100%" HEIGHT="406"> <P><FONT COLOR="#000000"><%
Select Case strMode
Case "add"
%></FONT></P><form method="POST" action="guestbook.asp"> <table border="0" width="100%" cellspacing="0" cellpadding="2" HEIGHT="100%">
<tr> <td valign="left" align="left" colspan="4"><normal><%=strError%><TABLE BORDER=0 BGCOLOR="#F2f2f2" WIDTH="366" CELLPADDING=0 CELLSPACING=0 ALIGN="CENTER" STYLE="BORDER:solid 1px #CCCCCC">
<TR> <TD><DIV CLASS="pad"><FONT COLOR="#000000" FACE="BeyondControl" SIZE="1"><FONT FACE="Arial, Helvetica, Tahoma, Verdana">Navn</FONT></FONT><BR><FONT FACE="Verdana" SIZE="1"><INPUT TYPE="text" NAME="Navn" VALUE="<%=strNavn%>" CLASS="but" STYLE="color: #000000; font-family: Verdana; font-size: 10px; border: 1px solid #CCCCCC; background-color: #FFFFFF" SIZE="35"></FONT></DIV></TD><TD><DIV CLASS="pad"><FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, Tahoma" SIZE="1"><NORMAL><FONT COLOR="#000000" FACE="Arial, Helvetica, Tahoma, Verdana">E-mail</FONT></NORMAL><FONT FACE="Arial, Helvetica, Tahoma, Verdana"><NORMAL></NORMAL><NORMAL></NORMAL></FONT><NORMAL></NORMAL></FONT><BR><FONT FACE="Verdana" SIZE="1"><INPUT TYPE="text" NAME="Email" VALUE="<%=strEmail%>" CLASS="but" STYLE="color: #000000; font-family: Verdana; font-size: 10px; border: 1px solid #CCCCCC; background-color: #FFFFFF" SIZE="35"></FONT></DIV></TD></TR>
<TR> <TD COLSPAN=2><FONT SIZE="1" COLOR="#f0f0f0">.</FONT></TD></TR> <TR> <TD COLSPAN=2 BGCOLOR="#CCCCCC"><IMG ALT="" SRC="grafik/1x1_empty.gif" WIDTH="100" HEIGHT="1"></TD></TR>
<TR> <TD COLSPAN=2><DIV CLASS="pad"><FONT COLOR="#990000" FACE="Verdana, Arial, Helvetica, Tahoma" SIZE="1"><NORMAL><FONT COLOR="#000000" FACE="Arial, Helvetica, Tahoma, Verdana">Kommentar</FONT></NORMAL><FONT FACE="Arial, Helvetica, Tahoma, Verdana"><NORMAL></NORMAL><NORMAL></NORMAL></FONT><NORMAL></NORMAL></FONT><BR><FONT FACE="Verdana" SIZE="1"><TEXTAREA NAME="Kommentar" CLASS="but" STYLE="color: #000000; HEIGHT:130px; WIDTH:400px; font-family: Verdana; font-size: 10px; border: 1px solid #CCCCCC; background-color: #FFFFFF" COLS="35"></TEXTAREA></FONT></DIV></TD></TR>
<TR> <TD COLSPAN=2 HEIGHT="2"><FONT SIZE="1" COLOR="#f0f0f0">.</FONT></TD></TR>
<TR> <TD COLSPAN=2 BGCOLOR="#CCCCCC"><IMG ALT="" SRC="grafik/1x1_empty.gif" WIDTH="100" HEIGHT="1"></TD></TR>
<TR> <TD COLSPAN=2 STYLE="TEXT-ALIGN:right;" HEIGHT="2"><DIV CLASS="pad"><DIV ALIGN="RIGHT"><FONT FACE="Verdana" SIZE="1"><INPUT TYPE="submit" NAME="button32" VALUE="Send" CLASS="button" STYLE="color: #000000; font-family: Verdana; font-size: 10px; border: 1px solid #F0F0F0; background-color: #FFFFFF"></FONT><FONT FACE="Verdana" SIZE="1">
<INPUT TYPE="button" NAME="button222" VALUE="Tilbage" CLASS="button" STYLE="color: #000000; font-family: Verdana; font-size: 10px; border: 1px solid #F0F0F0; background-color: #FFFFFF"><FONT COLOR="#F0F0F0">..</FONT></FONT></DIV></DIV></TD></TR>
</TABLE></td></tr> <tr> <td valign="left" align="left" WIDTH="22%" HEIGHT="36">&nbsp;</td><td valign="left" align="left" WIDTH="54%" HEIGHT="36">&nbsp;</td><td valign="middle" align="left" COLSPAN="2" HEIGHT="36">&nbsp;</td></tr>
<tr> <td valign="left" align="left" COLSPAN="2" HEIGHT="22">&nbsp;</td><td valign="left" align="left" COLSPAN="2" HEIGHT="22">&nbsp;</td></tr>
<tr> <td valign="top" align="left" COLSPAN="2">&nbsp;</td><td valign="left" align="left" COLSPAN="2">&nbsp;</td></tr>
</table></form><FONT COLOR="#000000"><%
Case Else
    strAddLine = "<p><a href=guestbook.asp?mode=add><normal><font face=Arial, Tahoma, Verdana, Helvetica; size=1> Skriv:. </font></normal</a></p>"
    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
        Response.Write "<table width=100% border=0 cellpadding=0 cellspacing=0>"
        Do While Not rs.EOF
            dtmDato = rs("Dato")
            dtmDato = FormatDateTime(dtmDato,vbLongDate) & " kl. " & FormatDateTime(dtmDato,vbLongTime)
            Response.Write "<tr bgcolor=#F6F6F6><td width=""100%""><font face=Arial, Tahoma, Verdana, Helvetica size=1>" & dtmDato & "</td></tr>"
            If Len(rs("Email")) > 0 Then
                Response.Write "<tr><td><font face=Arial, Tahoma, Verdana, Helvetica size=1><normal><a href=mailto:" & rs("Email") & ">" & rs("Navn") & "</a>:</normal></td></tr>"
            Else
                Response.Write "<tr><td><font face=Arial, Tahoma, Verdana, Helvetica size=1><normal>" & rs("Navn") & " skriver:</normal></td></tr>"
            End If
            Response.Write "<tr><td><font face=Arial, Tahoma, Verdana, Helvetica size=1>" & rs("Kommentar") & "<br>&nbsp;</td></tr>"
            rs.MoveNext
        Loop
        Response.Write "</table>"
    Else
        Response.Write "<p><font face=Arial, Tahoma, Verdana, Helvetica size=1>Ingen tag's</font></p>"
    End If
    myConn.Close
    Set myConn = Nothing
    Response.Write strAddLine
End Select
%></FONT></tr> <tr align="left"> <td width="100%"><normal><font face="Arial, Tahoma, Verdana, Helvetica;" size="1"><p></font></normal></td></tr>
</table></left><P><left><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR></left></P><P><left></left></P><P><left></left></P><P><left></left></P><P><left></left></P><P><left></left></P><P><left><BR></left></P><P><left><BR></left></P><DIV ALIGN="LEFT"></DIV><P><left></left></P></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>

# Jeg har tænkt mig at bruge det som nyheds system, hvis i prøver at sætte filen ind i notepad f.eks og gem filen som asp....så læg den ud på nettet og se den..

så står der skriv, og så ville jeg gerne have at den ville sprøge om password inden den kommer ind på den nye side..så er det nemlig kun mig der kan skrive nyheder  #

+Kasper.asp