'**************************************
    ' Name: Write to File
    ' Description:Writes to a file, jsut cha
    '     nge a few things and there you go!
    ' By: Woody Woodland
    '
    'This code is copyrighted and has    ' limited warranties.Please see http://w
    '     ww.Planet-Source-Code.com/xq/ASP/txtCode
    '     Id.6099/lngWId.4/qx/vb/scripts/ShowCode.
    '     htm    'for details.    '**************************************
    
    Sub saveit
    	'create a new Active Data Objects connection
    	Set conn = server.createobject("ADODB.RecordSet")
    	'open the ODBC System DSN
    	conn.open "usage",dsn, adOpenKeySet, adLockPessimistic, adCmdTable
    	conn.addnew
    	conn("email")=Request.Form("email")
    	conn("IP")=Request.ServerVariables("REMOTE_ADDR")
    	conn("referer")=request.form("referer")
    	conn("browser")=Request.ServerVariables("HTTP_USER_AGENT")
    	conn("date_time")=now
    	conn.update
    	conn.close
    	Set conn = Nothing
    End Sub
    Sub query2csv(dsn,sql)
    whichname="download/contacts.txt"
    myDSN=dsn
    mySQL=sql
    showblank=""
    shownull="<null>"
    linestart=chr(34)
    lineend=chr(34)
    delimiter=chr(34) & "," & chr(34)
    delimitersub=""
    whichFN=server.mappath(whichname)
    Set fstemp = server.CreateObject("Scripting.FileSystemObject")
    Set filetemp = fstemp.CreateTextFile(whichFN, true)
    ' true = file can be over-written if it 
    '     exists
    ' false = file CANNOT be over-written if
    '     it exists
    Set conntemp=server.createobject("adodb.connection")
    conntemp.open myDSN
    Set rstemp=conntemp.execute(mySQL)
    ' this code detects if data is empty
    if rstemp.eof Then
    response.write "No data To convert For SQL statement<BR>"
    response.write mySQL & "<BR>"
    connection.close
    Set connection=nothing
    response.end
    End if
    Do UNTIL rstemp.eof
    thisline=linestart
    For Each whatever In rstemp.fields
    thisfield=whatever.value
    if isnull(thisfield) Then
    thisfield=shownull
    End if
    if trim(thisfield)="" Then
    thisfield=showblank
    End if
    thisfield=replace(thisfield,delimiter,delimitersub)
    thisline=thisline & thisfield & delimiter
    next
    tempLen=len(thisline)
    tempLenDelim=len(delimiter)
    thisline=mid(thisline,1,tempLEN-tempLenDelim) & lineend
    filetemp.WriteLine(thisline)
    ' response.write thisline & "<br>"
    '     
    rstemp.movenext
    LOOP
    filetemp.Close
    Set filetemp=nothing
    Set fstemp=nothing
    rstemp.close
    Set rstemp=nothing
    conntemp.close
    Set conntemp=nothing
    if err.number=0 Then
    response.write "File was converted sucessfully!<BR>"
    response.write "Converted file is at <A href='"
    response.write whichname & "'>" & whichname & "</A>"
    else
    response.write "VBScript Errors Occured!<BR>"
    response.write "Error Number=#<B>" & err.number & "</B><BR>"
    response.write "Error Desc. =<B>" & err.description & "</B><BR>"
    response.write "Help Path =<B>" & err.helppath & "</B><BR>"
    response.write "Native Error=<B>" & err.nativeerror & "</B><BR>"
    response.write "Error Source =<B>" & err.source & "</B><BR>"
    response.write "SQL State=#<B>" & err.sqlstate & "</B><BR>"
    End if
    End Sub