<% IF Session("Move_Done") = "T" THEN Response.Write("
You have already submitted your service request.
") Response.Write("If you wish to change or cancel this order,
please email us at utilities@lagrangega.gov
or call 706-883-2030
") ELSE %> <% on error resume next Err.clear Set DBObj = Server.CreateObject("adodb.Connection") DBObj.Open(Session("g_dsn")) 'getnumber = "SELECT company_code, next_web_move FROM wbcctrlc WHERE company_code = '1'" 'Set nextnum = DBObj.Execute(getnumber) 'if nextnum.eof then ' Response.Write("We are experiencing technical difficulties (error1). Please Try Again later.
") ' nextnumb.Close ' DBObj.Close ' response.end 'end if 'requestnum = nextnum("next_web_move") 'request_back = requestnum + 1 'update_move_num = "UPDATE wbcctrlc SET next_web_move = '" & request_back & "' WHERE company_code = '1';" 'DBObj.Execute(update_move_num) 'if Err.Number <> 0 then ' response.write("We are experiencing technical difficulties (error2). Please Try Again later.
") ' response.end 'end if 'nextnum.Close trans_type = 2 g_custno = 10 g_account = 10 g_occupant = 0 l_hour = hour(now) if(len(l_hour) = 1) then l_hour = "0" & l_hour end if l_min = minute(now) if(len(l_min) = 1) then l_min = "0" & l_min end if l_sec = second(now) if(len(l_sec) = 1) then l_sec = "0" & l_sec end if l_mon = month(now) if(len(l_mon) = 1) then l_mon = "0" & l_mon end if l_day = day(now) if(len(l_day) = 1) then l_day = "0" & l_day end if l_year = year(now) 'requestnum is int and limited in size requestnum=l_mon&l_day&l_hour&l_min&l_sec ' Set the insert statement transfer = "INSERT INTO wbsoreqm (debtor_no, account_no, occupant_code, trans_type, req_no, " _ & "moveout_addr1, moveout_addr2, moveout_city, moveout_prov, moveout_pcode, " _ & "movein_addr1, movein_addr2, movein_city, movein_prov, movein_pcode, " _ & "contact_name, trans_date, req_date, req_comment1, req_comment2, req_comment3, req_comment4, " _ & "home_phone, bus_phone, from_time, from_time_type, to_time, to_time_type, " _ & "mail_addr1, mail_addr2, mail_city, mail_province, mail_pcode, new_name) " _ & "VALUES (" & g_custno & ", " _ & g_account & ", " _ & g_occupant & ", " _ & trans_type & ", " _ & "'" & requestnum & "', " _ & "'" & trim(Request.Form("out_address")) & "', "_ & "'" & trim(Request.Form("out_unit")) & "', "_ & "'" & trim(Request.Form("out_city")) & "', "_ & "'" & trim(Request.Form("out_province")) & "', "_ & "'" & trim(Request.Form("out_postal")) & "', "_ & "'" & trim(Request.Form("in_address")) & "', "_ & "'" & trim(Request.Form("in_unit")) & "', "_ & "'" & trim(Request.Form("in_city")) & "', "_ & "'" & trim(Request.Form("in_province")) & "', "_ & "'" & trim(Request.Form("in_postal")) & "', "_ & "'" & trim(Request.Form("cust_name")) & "', "_ & "'" & Request.Form("moveoutdate") & "', "_ & "'" & Request.Form("moveindate") & "', "_ & "'" & replace(trim(Request.Form("T1")),"'","''") & "', "_ & "'" & replace(trim(Request.Form("T2")),"'","''") & "', "_ & "'" & replace(trim(Request.Form("T3")),"'","''") & "', "_ & "'" & replace(trim(Request.Form("T4")),"'","''") & "', "_ & "'" & trim(Request.Form("home_phone")) & "', "_ & "'" & trim(Request.Form("business_phone")) & "', "_ & "null, "_ & "null, "_ & "null, "_ & "null, "_ & "'" & trim(Request.Form("mail_address")) & "', "_ & "'" & trim(Request.Form("mail_unit")) & "', "_ & "'" & trim(Request.Form("mail_city")) & "', "_ & "'" & trim(Request.Form("mail_province")) & "', "_ & "'" & trim(Request.Form("mail_postal")) & "', " _ & "'email');" 'response.write(transfer) DBObj.Execute(transfer) mailbody= "
ONLINE MOVEIN REQUEST
" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "
Order Number (N):" & requestnum & "    TO BE COMPLETED BY THE CITY
Name:" & trim(Request.Form("cust_name")) & "Srvc(circle):    E    G    W    S    R    T
SSN:" & trim(Request.Form("ssn")) & "CSR:
Drivers License:" & trim(Request.Form("d_license")) & "Date Completed:
Birthday:" & trim(Request.Form("birthday")) & "New Acct#:
Email Address:" & trim(Request.Form("emailaddr")) & "Landlord#:
Phone Numbers:" & trim(Request.Form("home_phone")) & "   " & trim(Request.Form("business_phone")) & "Customer#:
Employer Information:" & trim(Request.Form("employer")) & "Delinquency Risk %:
Moving From:" & trim(Request.Form("out_address")) & " " & trim(Request.Form("out_unit")) & " " & trim(Request.Form("out_city")) & ", " & trim(Request.Form("out_province")) & " " & trim(Request.Form("out_postal")) & "Deposit $:
Move Out Date:" & trim(Request.Form("moveoutdate")) & "Prior Acct#:
Moving To:" & trim(Request.Form("in_address")) & " " & trim(Request.Form("in_unit")) & " " & trim(Request.Form("in_city")) & ", " & trim(Request.Form("in_province")) & " " & trim(Request.Form("in_postal")) & "Prior Acct Bal:
Move In Date:" & trim(Request.Form("moveindate")) & "Prior Acct#:
Mailing Address:" & trim(Request.Form("mail_address")) & " " & trim(Request.Form("mail_unit")) & " " & trim(Request.Form("mail_city")) & ", " & trim(Request.Form("mail_province")) & " " & trim(Request.Form("mail_postal")) & "Prior Acct Bal:
Rent or Own:" & Request.Form("rent_yn") & "        " & Request.Form("landlord") & "Category:          R      C
Comments:Comments:
" & trim(Request.Form("T1")) & "    
" & trim(Request.Form("T2")) & "    
" & trim(Request.Form("T3")) & "    
" & trim(Request.Form("T4")) & "    
" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "" mailbody= mailbody & "
By submitting this application, Applicant acknowledges: 1. The above information is true
and correct to the best of my knowledge(City Code Section 20-1-11 states that it is unlawful
for any person to obtain utility service by deceitful means or artful practice which includes
providing false information during the application process); 2. Applicant will pay all
utility charges and fees for service at the above location, and past due utility amounts
shall be paid prior to obtaining new utility services;
3. Penalties may be charged for late payment and service will be discontinued for
failure to pay all charges by the due dateshown on monthly statements; 4. Residential
sanitation charges are mandatory within the City limits regardless of actual use of this
service except for vacant rental property for an approved Landlord; 5. The City may utilize
my social security number and other information to determine my credit score and verify
employment for the purposes of determining my deposit and collecting unpaid amounts. Should
I choose not to provide my social security number, I understand that I will be charged the
maximum deposit; 6. An unexpired government issued picture ID is
required for identification purposes; 7.A $30 connect fee and any required deposit will
be included on your first bill; 8. The City shall not be responsible for the transmission
or use of utility services beyond the meter; 9. There are no open water or gas outlets within the building.

Please fax a copy of your lease or purchase agreement plus a picture ID to our customer
service office at 706-883-2041 or email this information to utilities@lagrangega.gov
or mail to Customer Service at 200 Ridley Ave, LaGrange, GA 30240.
" Set myMail = CreateObject("CDO.Message") 'myMail.From = Request.Form("emailaddr") myMail.From = "OnlineRequest@lagrangega.gov" myMail.To = "utilities@lagrangega.gov" myMail.Cc = Request.Form("emailaddr") myMail.Subject = "eCARe Movein Request " & requestnum myMail.htmlBody = mailbody myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _ ="lagrangega-org.fortimailcloud.com" 'Server port myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _ =25 myMail.Configuration.Fields.Update myMail.Send set myMail = nothing DBObj.Close %>


Thank You! Your new service request has been submitted. Your reference number is <%=requestnum%>. We will handle your request on the scheduled date but no earlier than the next business day. A $30 connection fee along with any required deposit will be included on your first billing statement, or we will contact you if payment is necessary in advance of service.

Please fax a copy of your lease or purchase agreement plus a photo ID to our Customer Service office at 706-883-2041, email to utilities@lagrangega.gov, or mail to Customer Service at 200 Ridley Ave, LaGrange, GA 30240.

 
<% Session("Move_Done") = "T" END IF %>