[smooth]

Hey everybody

I am using ASP with a SQL database and have this code:

If Request.QueryString("mode") = "exportleads" then
	Set rsUserAdmin = Server.CreateObject("ADODB.Recordset")
	strSQL = "SELECT * FROM leads"
	rsUserAdmin.Open strSQL, conn
	Const ForWriting = 2
	Const Create = True
	Dim MyFile, FSO, TSO, strTime
	[b]Set strTime = Format(Now, "mm_dd_yyyy")[/b]
	MyFile = Server.MapPath("lead_exports/leads_[b]" & strTime & "[/b].csv")
	Set FSO = Server.CreateObject("Scripting.FileSystemObject")
	Set TSO = FSO.OpenTextFile(MyFile, ForWriting, Create)
	TSO.writeline "Name, Phone, Email"
	Do While NOT rsUserAdmin.EOF
		TSO.writeline(Trim(rsUserAdmin("Name")) & ", " & Trim(rsUserAdmin("Phone")) & ", " & Trim(rsUserAdmin("Email")))
		rsUserAdmin.MoveNext
		Loop
		Response.Write ("<br /><br /><div valign='middle' align='center'><a href='lead_exports/leads.csv'>Download File</a></div><br /><br />")
	TSO.close
	Set TSO = Nothing
	Set FSO = Nothing
	strBackup = "INSERT INTO leadarchive(Name, Phone, Email) " & _
				"SELECT Name, Phone, Email FROM leads ORDER BY Name"
	conn.Execute (strBackup)
	strDelete = "DELETE FROM leads"
	conn.Execute (strDelete)
	Set rsUserAdmin = Nothing
	Set conn = Nothing
End If

Now, if I take out the strTime variable and call in the file name it works fine. However, I want to make the filename that is output a unique name everytime, so that I can keep each file on my server. I am getting a error everytime I try to call strTime.

Is there a way to set a variable equal to a formatted Now() function, and then pass it to that filename?