news authorization

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic


   <% @Language=VBScript %>
<html>
<head><title>TEAM COBALT :: Add News</title>
<style>
A
{color:blue;text-decoration: none;}
a:hover
{color:#FFFFFF;}
TD
{FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: verdan}
</style>
</head>
<%
IF request.form("Flag")="OK" THEN
Fr=request.form("From")
Fr=Replace(Fr, "'", "''")
Su=request.form("Subject")
Su=Replace(Su, "'", "''")
Co=request.form("Comment")
Co=Replace(Co, "'", "''")
Ti=FormatDateTime(Now)
'String1
Set objConn = Server.CreateObject("ADODB.Connection")
strConnection = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("*****.mdb") & ";User ID=*****; Password=*****;"
objConn.Open(strConnection)
 
SQLstmt = "INSERT INTO myowngb (fr,subject,comment,ti)"
SQLstmt = SQLstmt & " VALUES (" 
SQLstmt = SQLstmt & "'" & Fr & "',"
SQLstmt = SQLstmt & "'" & Su & "',"
SQLstmt = SQLstmt & "'" & Co & "',"
SQLstmt = SQLstmt & "'" & Ti & "'"
SQLstmt = SQLstmt & ")"
set RS = objConn.Execute(SQLstmt)
objConn.Close
Set RS = Nothing
Set objConn = Nothing
response.write("<BR><CENTER>")
response.write("Thank you!</CENTER><BR><BR>")
ELSE 
%> 
<center>
<img src="http://www.team-cobalt.com/images/headnews.jpg">
<Body background="http://www.team-cobalt.com/images/tcbg.jpg">
<form method="POST" action="signgb.asp">
<table border="1" width="500" bgcolor="lightblue" bordercolor=cyan cellpadding="0" cellspacing="1">
    <tr>
      <td>
        <table border="0" width="500" bgcolor="skyblue" align="center">
          <tr> 
            <td width="25%" align="right" bordercolor="#663333"><b><font >Poster: </font></b>&nbsp; 
            </td>
            <td width="75%"> 
              <input type="text" name="From" size="25">
            </td>
          </tr>
          <tr> 
            <td width="25%" align="right"><b><font >Title: </font></b>&nbsp; 
            </td>
            <td width="75%"> 
              <input type="text" name="Subject" size="25">
            </td>
          </tr>
          <tr> 
            <td width="25%" align="right" valign="top"><b><font >News: </font></b>&nbsp; 
            </td>
            <td width="75%"> 
              <textarea name="Comment" cols=25 rows=5 WRAP=SOFT></textarea>
            </td>
          </tr>
          <tr> 
            <td height="60" align="right" colspan="2"> 
              <p align="center"> 
                <input type="hidden" value="OK" name="Flag">
                <input type="submit" value="Submit" name="submit">
                <input type="reset" value="Reset" name="reset">
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  </form>
<% END IF %>
<CENTER>
<table border="1" width="500" bgcolor="skyblue" bordercolor=cyan cellpadding="0" cellspacing="1">
<tr><td><a href="viewgb.asp"><center>View News</a>
 <b> ::: </b>
<a href="signgb.asp">Add News</a>
</CENTER>
</body>
</html>
is there a an easy way to make an Authorization code for this.... like make a new <input type=text name=auth size=25> and then have a part of this script only allow the script to work if it has the right auth code?? please help me... this is a modded guestbook that i turned into a news thing... check it out at www.team-cobalt.com/news/viewgb.asp