<% if session("userid")="" then response.Redirect("login.asp?loginmsg=Please enter user and password") %>
<%
server.ScriptTimeout=60000000
Dim objUpload, lngLoop
if Request.QueryString("opt")="" then opt=0 else opt=cint(Request.QueryString("opt"))
If Request.TotalBytes > 0 Then
Set objUpload = New clsUpload
objUpload.Files.Item(0).Save server.MapPath(".") & "/../db"
head1="
Text File Uploaded to the server
"
end if
msg=Request.QueryString("msg")
if msg=2 then head1="