EMR

<% submitaction=request.Form("submitaction") if submitaction="Submit" then 'enquiry=request.Form("Enquiry") 'oenquiry=request.Form("OtherEnq") 'service=request.Form("Service1") 'oservice=request.Form("Otherservice") 'fname=request.Form("fname") 'mname=request.Form("mname") 'lname=request.Form("lname") 'title=request.Form("title") 'dept=request.Form("department") 'job=request.Form("Job") ''company=request.Form("Company") 'address=request.Form("address") 'city=request.Form("City") 'state=request.Form("state") 'pin=request.Form("Pin") 'country=request.Form("country") 'if request.Form("email") = "on" then ' email="email" ' else ' email="phone" 'end if 'phone=request.Form("phone") 'temail=request.Form("txtemail") 'tphone=request.Form("txtphone") 'fileadd=request.Form("Browse") 'fileaddq=split(request.Form("Browse"),"\") 'for i=0 to ubound(fileaddq) ' if i=ubound(fileaddq) then ' address1=fileaddq(i) 'end if 'next 'Dim Uploader, File 'Dim UploadFile 'Set Uploader = New FileUploader 'Uploader.Upload() ' Check if any files were uploaded 'If Uploader.Files.Count = 0 Then ' Response.Write "File(s) not uploaded." ' Else ' For Each File In Uploader.Files.Items ' File.SaveToDisk server.MapPath(".") '' UploadFile = server.MapPath(".") & "\" & File.FileName ' response.Write uploadfile ' response.End ' Next ' End If %> <% end if %> EMR