<%@ language = VBSCRIPT %> <% Option Explicit %> <% Dim strv1,strv2,strv3,strv4,strv5,pwd,pwdstatus,sque,sans pwd= Request("txtpwd") strv1 = Request("sl1") strv2 = Request("sl2") strv3 = Request("sl3") strv4 = Request("sl4") sque = Request("txtSQue") sans = Request("txtSAns") strv1 = UCase(strv1) strv2 = UCase(strv2) if uid=0 then if len(strv1) = 1 then strv1 = strv1 & " " End If if len(strv2) = 1 then strv2 = strv2 & " " End If strv5 = strv1 & strv2 & strv3 & strv4 Dim cnt Dim objConn Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _ "DBQ=" & Server.MapPath("DB\SLT0708.mdb") objConn.Open Dim objRT Set objRT = Server.CreateObject("ADODB.Recordset") objRT.Open "DEF", objConn, , , adCmdTable Response.Write "

Gujarat State Financial Corporation

" Response.Write "

Statement of Account

" response.Write(uid) Response.Write "01-04-2007 TO 30-06-2007" Response.Write "
" Response.Write "
" pwdstatus="False" Do While Not objRT.EOF If objRT("ACNO") = strv5 then dim cn ,rs,msg,strQuery set cn=server.CreateObject("Adodb.Connection") set rs=server.CreateObject("Adodb.Recordset") cn.open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.MapPath("DB\SLT0708.mdb") cn.execute " update DEF set PWD='" & pwd & "',SQUE='" & sque & "',SANS='" & sans & "' where ACNO='" & strv5 rs.close cn.close set rs=nothing set cn=nothing acctstatus="True" End If objRT.MoveNext Loop objRT.Close() objConn.close() if acctstatus == "False" then msgbox("AccountNo does not exists") end if end if %>

Create Account


Enter Account Number: /// (Eg: CG/A /001/00, BN/01/001/00)

Password

Conform Password

Secret Question

Secret Answer

                                


 

Archives :

  2003-2004    2004-2005    2005-2006    2006-2007