KristinConnors.com - E-Post Board

<% @language="vbscript" %> <% response.buffer=true %> <% Server.ScriptTimeout=300 %> <%msg=request.querystring("msg")%> <% sql_chkUser="select * from kris_uploads" rs.open sql_chkuser,con %> KristinConnors.com - E-Post Board

<% while not rs.eof %> <% ' determine file type dim str1 dim x1 str1=trim(rs("url")) 'response.write str1 x1=len(str1) 'response.write x1 str2=mid(str1,x1-3,4) 'response.write str2 if (Lcase(str2)=".jpg" or Lcase(str2)=".gif" or Lcase(str2)=".bmp" or Lcase(str2)=".tif" or Lcase(str2)=".png") then str3="Picture" elseif (Lcase(str2)=".mpg" or Lcase(str2)=".avi" or Lcase(str2)=".asf" or Lcase(str2)=".ram" or Lcase(str2)=".wmv" or Lcase(str2)=".mov") then str3="Movie" elseif (Lcase(str2)=".mp3" or Lcase(str2)=".wav") then str3="Song" elseif (Lcase(str2)=".doc" or Lcase(str2)=".wpd" or Lcase(str2)=".xls" or Lcase(str2)=".pdf" or Lcase(str2)=".txt") then str3="Document" else str3="N/A" end if %> <% sql1="select * from kirsten_users where usrname='" & rs("usrname") &"'" rs1.open sql1,con %> <% ' response.write rs1("email") rs1.close rs.movenext wend rs.close %>

E-Post Board

- Click Here to Begin Your Posting -

You must "Log In" in order to upload an item on to the posterboard. In order to log in, you must register. Please do so in order to share your memories.

Posted:

User Name:

Type:

File: (Click This File To Save Or View)

Email Address:

<%response.write month(rs("date")) & "/" & day(rs("date")) & "/" & year(rs("date"))%>

target="new" > <%response.write rs("usrname")%>

<%response.write str3%>

target=_blank> <%response.write rs("url")%>

?subject=Hello!> <%response.write rs1("email")%>

Back