HTML to Excel with ASP

Quick and Easy method:


Response.Clear
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "inline;filename=requests.csv"
'Response.AddHeader "Content-Disposition", "attachment;filename=requests.csv"
Dim header : header = ""
prefix = false
Dim field
for each field in rs.Fields
if(prefix) then
header = header & ","
end if
header = header & field.Name
prefix = true
next
Response.Write header & vbCRLF & rs.GetString(,,",",,"")
Response.End

Classic ASP Error Handling

On Error Resume Next

'this will cause the page to continue processing when it hits an error

 

'after all scripting

If Err.number <> 0 then

    Dim msg msg = "Error Number " & Err.number & " occurred in millionDollarRequest.asp. Description: " & Err.Description & " SOURCE: " & Err.Source

    msg = msg & " IPADDRESS: " & Request.ServerVariables("REMOTE_HOST")

    sendEmailError(msg)

    Err.Clear

end if

 

'typical error message mailer

function sendEmailError(msg)

 Dim Mailer
 Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
 Mailer.RemoteHost  = "mail.XXXXXX.com"
 Mailer.Timeout = 30
 Mailer.FromName = "ERROR REPORT"
 Mailer.FromAddress = "webmaster@XXXXXXXXX.com"
 Mailer.ReplyTo = "webmaster@XXXXXXX.com"
 Mailer.AddRecipient "", "YYYYYYY@XXXXXXXXX.com"
 Mailer.Subject = "ERROR Alert"
 Mailer.BodyText = msg
  
 sendEmail = Mailer.SendMail
end function