rsIU.execute(strSql)

<form action="./post_r_succ.asp" method="post">
			<table width="100%"  border="1">
                                    <tr>
<input type="hidden" name="UNAME" value="0">

                                      <td><div align="center"><strong>Persons Alias:<Br>
                                       <textarea cols="50" rows="4" wrap="virtual" scrolling="false" name="UALIS">Example:
  This person uses the names 4matic, riggyjames, smiley, rougeart on sites such as www.google.com, www.clodtalk.com, www.yahoo.com
									   </textarea>
                                      </strong></div></td>
                                    </tr>
                                    <tr>
                                      <td><div align="center"><strong>Persons Last known Contact:<br>
                                       <textarea cols="50" rows="4" wrap="virtual" scrolling="false" name="UCONTACT">Example:
  The last known address was in Miami, Florida on rigoli street. They're phone number is 410-456-****. Their Name is John Doe
									   </textarea>
                                      </strong></div></td>
                                    </tr>
<input type="hidden" name="UPIP" value="<%=Request.ServerVariables("REMOTE_HOST")%>">
<input type="hidden" name="UDATE" value="<%=now()%>">
<input type="hidden" name="UID" value="<%=intTopicID%>">
                                    <tr>
                                      <td><div align="center"><strong>Details on every aspect of the current situation:<br>
                                        <textarea cols="75" rows="10" wrap="virtual" scrolling="false" name="UINFO">Example:
  This user has stiffed many people out of a product. They have stff blah, blah, blah... etc.
									   </textarea>
                                      </strong></div></td>
                                    </tr>
                                    <tr>
                                      <td><div align="left"><strong>HelpFul Link 1:
                                        <input type="text" name="UPROOF1" size="20">
                                      </strong></div></td>
                                    </tr>
                                    <tr>
                                      <td><div align="left"><strong>HelpFul Link 2:
                                        <input type="text" name="UPROOF2" size="20">
                                      </strong></div></td>
                                    </tr>
                                    <tr>
                                      <td><div align="left"><strong>HelpFul Link 3:
                                        <input type="text" name="UPROOF3" size="20">
                                      </strong></div></td>
                                    </tr>
                                     <tr>
                                      <td><div align="center"><strong>Your Ip-Address has been recorded as: 
<%
Response.Write(U_IP)
%>
                                        </strong></div></td>
                                    </tr>
                                      <td><div align="left"><strong>We have recorded info such as your IP-Address and UserName to 
									  Prevent incorrect claims and to have a security record.</strong></div></td>
                                    </tr>
                                      <td><div align="left"><strong>NOTES:</strong> Please give all information possible without giving out information such as 
									  their exact address... Please give links to forums where this has been stated or to the item it's self as if we believe that 
									  this is not a "TRUE" Comment it will be removed</div></td>
                                    </tr>
              </table>
								  <p align="center">
								    <input type="submit" value="Submit">
								  </p>
		  </form>

set rsIU=Server.Createobject("ADODB.Connection")
		rsIU.open(strConnString)
Function lString(string)
	 if string = "" then string = " "
	 lString = Replace(string, "'", "''")
End Function
			'REGISTER SQL
	strSql = "INSERT INTO SITE_COMP_R ([U_ALIS],[U_NAME],[UP_CONTACT],[UP_IP],[UP_INFO],[DATE],[U_ID],[UP_PROOF1],[UP_PROOF2],[UP_PROOF3]) VALUES(" & _
	 "'" & lString(Request.Form("UALIS")) & "'," & _
	 "'" & lString(Request.Form("UNAME")) & "'," & _
	 "'" & lString(Request.Form("UCONTACT")) & "'," & _
	 "'" & lString(Request.Form("UPIP")) & "'," & _
	 "'" & lString(Request.Form("UINFO")) & "'," & _
	 "'" & lString(Request.Form("UDATE")) & "'," & _
	 "'" & lString(Request.Form("UID")) & "'," & _
	 "'" & lString(Request.Form("UPROOF1")) & "'," & _
	 "'" & lString(Request.Form("UPROOF2")) & "'," & _
	 "'" & lString(Request.Form("UPROOF3")) & "')"
	 rsIU.execute(strSql)
	 
Response.Write("<h1 align=""center"">Congratualtions!</h1>")
Response.Write	"<h3 align=""center"">Thank you for contributing. Your topic is now searchable"	& VbNewLine
	 
	 rsIU.close
	 set rsIU = nothing

INSERT INTO SITE_COMP_R ([U_ALIS],[U_NAME],[UP_CONTACT],[UP_IP],[UP_INFO],[DATE],[U_ID],[UP_PROOF1],[UP_PROOF2],[UP_PROOF3]) VALUES('Example: This person uses the names 4matic, riggyjames, smiley, rougeart on sites such as www.google.com, www.clodtalk.com, www.yahoo.com ',' ','Example: The last known address was in Miami, Florida on rigoli street. They''re phone number is 410-456-****. Their Name is John Doe ','192.168.1.1','Example: This user has stiffed many people out of a product. They have stff blah, blah, blah... etc. ','1/5/2005 7:09:33 PM','16',' ',' ',' ')