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 -

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