|
<%response.write month(rs("date")) & "/" & day(rs("date")) & "/" & year(rs("date"))%> |
target="new" >
<%response.write rs("usrname")%> |
<%
' 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
%>
<%response.write str3%> |
target=_blank>
<%response.write rs("url")%> |
<%
sql1="select * from kirsten_users where usrname='" & rs("usrname") &"'"
rs1.open sql1,con
%>
?subject=Hello!>
<%response.write rs1("email")%> |
<%
' response.write rs1("email")
rs1.close
rs.movenext
wend
rs.close
%>