Bytes - answers

Subscript out of range Error

banning — Thu, 19 Nov 2009 20:20:36 GMT

Im a PHP developer and I officially HATE ASP

why does my code give me this error?

ERROR:
"Microsoft VBScript runtime error '800a0009'

Subscript out of range

/synergy/docs/ProductionReports.asp, line 42 "

CODE:

Expand|Select|Wrap|Line Numbers

	
    DIM sql: sql = conn.Query("SELECT cmp_name, cmp_code FROM cicmpy")
 
    DIM i

    i=1

    DO WHILE i<10
 
        DIM cmp_name: cmp_name = sql(i)
 
        response.write(i & ". " & cmp_name & " - ")
 
        i=i+1
 
    LOOP

GetObject not working after migrating

Trezore — Thu, 19 Nov 2009 01:51:20 GMT

Migrated website from Windows 2000 IIS 5.0
to Windows 2003 IIS 6.0

Used to get the Computer name resolved via shell, but that won't work anymore.

Found the following to work if I step though the logic in VB 6.0:

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonat e}!\\" & (IP ADDRESS OF COMPUTER) & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")

For Each objComputer In colComputer
strComputerName = objComputer.Name ' NETBIOS name
Next

But when I plug that into the ASP page, I get the following error:

Microsoft VBScript runtime error '800a0046'

Permission denied: 'GetObject'

When I try:

DIM ObjShell
SET objShell=CreateObject("WScript.Shell")
DIM objExec, strResult
SET objExec = objShell.Exec("cmd /c ping -a -n 1 " & Request.ServerVariables("Remote_Addr"))
strResult = objExec.StdOut.ReadAll
strResult = mid(strResult,12,15)

I get:

WshShell.Exec error '80070005'

Access is denied.

I'm getting the impression there is no way to get the computer name info via ASP code due to security issues set forth with IIS 6.0. But I am unable to confirm that.

Any help is very much appreciated. Thanks!

Want to Display the database values in 3 columns.

chinni1 — Tue, 17 Nov 2009 07:19:22 GMT

Hii..
Im retreving the data from database using table1.so im taking the values in array.
so using loop im displaying the values in single line .like
one
two
three
four
five
...
...
...

But i want to display the values like..
one two three
four five six
.. .. ..

my code is here..

Expand|Select|Wrap|Line Numbers

	
Numbers                

<%
For cnt=1 To UBound(arrayobjrs, 2)+1 Step 1

%>

"> <%=arrayobjrs(1, cnt-1)%>

<%

Next %>

Thanks

How to populate the dropdown values from another dropdown.

chinni1 — Tue, 17 Nov 2009 05:25:34 GMT

Hii..

I Have 2 dropdowns.The first dropdown contains main products which is from database table1.
If we select The one of dropdown value then the 2 second drop down should fill with all sub products of that main products from another table2.

Ex:: pulsor is the main product which is in 1 st dropdown
pulsor 150cc,pulsor 180cc ,pulsor 180cc are the sub prod s of pulsor.
when ever we select the pulsor on 1st dropdown it should disaply all sub models. same as per all models.

These two dropdowns should fill with from database only.

Thanks

Download the current form/brochure by a button click??

chandhseke — Mon, 16 Nov 2009 12:35:53 GMT

Hi Folks,

Can someone help me in achieving one of my requirement to complete my project. The requirement is : I need to introduce a functionality to download the current form that i am using (Example: An online application form) in PDF format.

This is new to me, so please help me or guide me through achieving this requirement.

Thanks in advance!!

Regards,
Chandhu

update multiple records corresponding to ID in one go ?

Fary4u — Fri, 13 Nov 2009 13:09:03 GMT

how can i update multiple records corresponding to perticular ID & update values in one go ?

mode_a contains ID No.

Expand|Select|Wrap|Line Numbers

	
Dim mode,mode_a,i

mode=Request("t1")
 
mode_a=split(mode,",") 
 
For i=LBound(mode_a) to UBound(mode_a)

Response.Write mode_a(i) + "
"
 
sqlText = "UPDATE products SET productStock = 'yes' where productID = '"& mode_a &"'"

Response.Write sqlText
 
Next

giving me this error ?

Line 9
Microsoft VBScript runtime (0x800A000D)
Type mismatch

CDO.Message issue on voxdomains

Harold123 — Mon, 09 Nov 2009 20:11:47 GMT

Dear Sirs,

I cannot send my emails with asp anymore. Here is my new code:

Quote:

sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "127.0.0.1" (add your smtp server address here)
.update
End With

Set objMail = Server.CreateObject("CDO.Message")
Set objMail.Configuration = cdoConfig
objMail.From = "YOUR FROM EMAIL ADDRESS"
objMail.To = "YOUR TO EMAIL ADDRESS"
objMail.Subject = "YOUR EMAIL SUBJECT LINE"
objMail.TextBody = "YOUR MESSAGE BODY"
objMail.Send

Set objMail = Nothing
Set cdoConfig = Nothing

1. Do I need to change anything in my hosting controp panel?
2. Where do I find my SMTP SERVER ADDRESS?

Prior, I was using some more simple code that was working fine until they changed something... !!@#$%^&%^U*(*&^%!!! =)

Quote:

Dim objMail
'Create the mail object
Set objMail = Server.CreateObject("CDO.Message")
Set objMail.Configuration = cdoConfig

'Set key properties
objMail.From = "XXX SANDWICH"
objMail.To = email
objMail.Bcc = "xxx@hotmail.com"
objMail.Subject= "Congratulations! We received your order. [ID]"
objMail.HTMLBody = StrMessage

'Send the email
objMail.Send

'Clean-up
Set objMail = Nothing

Thank you for your help,
Harold

Selected collating sequence not supported by the operating system

anjani132 — Mon, 09 Nov 2009 15:36:21 GMT

Hi, I am trying to read Microsoft Excel spreadsheets that were last saved by a person using a chinese language version of excel. Using Asp i am getting an error message. The error message in the browser is "Selected collating sequence not supported by the operating system. (Microsoft JET Database Engine). We found one work around for this issue by creating a batch script that would open these spreadsheet with an English Language version of excel and save them. Can any one please help to resolve this issue

asp classic vb6: upload multipe image. Rename files and delete.

achotto — Sun, 08 Nov 2009 04:07:28 GMT

hi, i try to upload a multiple image files. after that i will rename the files name.
the problem is when i upload a 2 or more same files name exp-goal.jpg, it will return "files already exist". ok this is my codes,

Expand|Select|Wrap|Line Numbers

	 
Set Upload = Server.CreateObject("Persits.Upload.1")

Count = Upload.Save("d:\cmsupload\cimg\")
 
for each File in upload.Files

'

'...sme operation here..
 
set rename = CreateObject("scripting.FileSystemObject")

set f = rename.GetFile(filepath1)

f.Copy "d:\www\cmsupload\cimg\" newname & "." & Ext, false

next

and then i try to delete the data using this

Expand|Select|Wrap|Line Numbers

	
Set Upload = Server.CreateObject("Persits.Upload.1")

Count = Upload.Save("d:\cmsupload\cimg\")

for each File in upload.Files

'

'...sme operation here..
 
set rename = CreateObject("scripting.FileSystemObject")

set f = rename.GetFile(filepath1)

f.Copy "d:\www\cmsupload\cimg\" newname & "." & Ext, false
 
Set fso = CreateObject("Scripting.FileSystemObject")

fso.Deletefile ("c:\windows\desktop\" & oldname) 

next

but it return error, file no found.
it work perfectly if i insert the diffrent files name but something i dont really understood in here isn't the upload.Files will functioning like an array? array(0) then if next, array(1) and continue...

Use field on web page as MS Access input parameter

katwheels — Sat, 07 Nov 2009 17:05:37 GMT

I need to convert a data element from a web page table into an MS Access input parameter and then run another MS Access query.

I have an ASP web page that generates an MS Access query and creates a table on a webpage. This code generates the field1 value on the original table.

If Request.querystring("mode") = "table1" then userID = Clng(Session("userID"))
Set rsViewProfile = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT [username], [field1], [field2], [field3], [ID] FROM table1 WHERE ID=" & UserID
rsViewProfile.Open strSQL, adoCon

Do While Not rsViewProfile.EOF
Response.Write (rsViewProfile("username"))

Response.Write (" Response.Write (rsViewProfile("field1"))
Response.Write (">")
Response.Write (rsViewProfile("field1"))

Response.Write ("")
Response.Write (rsViewProfile("field2"))

Response.Write ("")
Response.Write (rsViewProfile("field3"))
Response.Write ("")

rsViewProfile.MoveNext
Loop
Response.Write ("")
Set rsViewProfile = Nothing
Set adoCon = Nothing
End If

I now need to take this field1 table element, convert it to a MS Access input parameter and run a new MS Access query.

strSQL = "SELECT [username], [field1], [field2], [field3], [ID] FROM table WHERE ID=" & UserID AND (((field1)= [@field1]))

In other words, I'm drilling down into the data. The first table creates a list of the customer's businesses. I want to click on the name of one of those businesses to generate a table with details for that specific business.

Any help, sample code would be greatly, greatly appreciated!!

to display string in vertical order in ASP

Raman Pahwa — Fri, 06 Nov 2009 14:01:09 GMT

I want to display a string like GOOGLE in following format:
G
O
O
G
L
E

Please guide.

retain value of radio button on the next page or previous page

rjlorenzo — Fri, 06 Nov 2009 06:28:55 GMT

Hi to all,

I have created a survey page that consists of 4 pages 10 question on each page. Each question are just answer using a radio button. Now my problem is i have to retain all the answer/value of radio button even the user click previous page then going back to current page. appreciate any idea please.

thank you in advance

asp connection to SQL server DB

rjlorenzo — Fri, 06 Nov 2009 01:53:05 GMT

Good Day,

Just want to ask some help please, currently I'm using MS Access as my database but now I would like to use SQL DB as my database. Could anyone help me how to convert my connection string from ms access to sql db. below is my connection on ms access please do modification to work it on SQL. Many thanks in advance.

<%
dim strConn
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.MapPath("bts_db.mdb") &";Persist Security Info=False;Jet OLEDB:Database Password = prs"
function get_recordset(byval strSQL, byref recset)
on error resume next
set recset = Server.CreateObject("ADODB.Recordset")
recset.open strSQL, strConn, 3
if err.number <> 0 then
Response.Write err.Description & "
"
Response.Write err.Source & "
"
Response.Write strSQL
Response.End
end if
get_recordset = recset.recordcount
end function

sub Execute_Query (byval strSQL)
on error resume next
dim con
Set con = Server.CreateObject("adodb.Connection")
con.open strConn
con.BeginTrans
con.execute strSQL
if err.number <> 0 then
Response.Write err.Description & "
"
Response.Write err.Source & "
"
Response.Write strSQL & "
"
Response.End
con.RollbackTrans
else
con.CommitTrans
end if
Set con = nothing
end sub
%>

Help changing RSS feed window target

jrod11 — Mon, 02 Nov 2009 23:41:34 GMT

I have an RSS reader that I have been using, but the only problem i have is that I want the target to be "_blank" rather than the parent window.

Anyone know where I should add the _blank?

Expand|Select|Wrap|Line Numbers

Response.Expires = -1

' =========== RSS2HTML.ASP for ASP/ASP.NET ==========

' version 1.27, 17 August 2008

' =========== configuration =====================

' ##### URL to RSS Feed to display #########

URLToRSS = "http://rss.cnn.com/rss/cnn_topstories.rss"

' ##### max number of displayed items #####

MaxNumberOfItems = 10

' ##### Main template constants

MainTemplateHeader = ""

MainTemplateFooter = "

' #####

' ######################################

Keyword1 = "" ' Keyword1 = "tech" - set non-empty keyword value to filter by this keyword

Keyword2 = "" ' Keyword1 = "win" - set non-empty keyword value to filter by this 2nd keyword too

' #################################

' ##### Item template.

' ##### {LINK} will be replaced with item link

' ##### {TITLE} will be replaced with item title

' ##### {DESCRIPTION} will be replaced with item description

' ##### {DATE} will be replaced with item date and time

' ##### {COMMENTSLINK} will be replaced with link to comments (if you use RSS feed from blog)

' ##### {CATEGORY} will be replaced with item category

ItemTemplate = "{DATE}
{CATEGORY}
{TITLE}
{DESCRIPTION}"
' ##### Error message that will be displayed if not items etc
ErrorMessage = "Error has occured while trying to process " &URLToRSS & "
Please contact web-master"
' ================================================
Set xmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
xmlHttp.Open "GET", URLToRSS, false
xmlHttp.Send()
RSSXML = xmlHttp.ResponseText
Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0")
xmlDOM.async = False
xmlDOM.validateOnParse = False
xmlDom.resolveExternals = False
If not xmlDOM.LoadXml(RSSXML) Then
ErrorMessage = "Can not load XML:" & vbCRLF & xmlDOM.parseError.reason & vbCRLF & ErrorMessage
End If
Set xmlHttp = Nothing ' clear HTTP object
Set RSSItems = xmlDOM.getElementsByTagName("item") ' collect all "items" from downloaded RSS
RSSItemsCount = RSSItems.Length-1
' if not .. entries, then try to get ..
if RSSItemsCount = -1 Then
Set RSSItems = xmlDOM.getElementsByTagName("entry") ' collect all "entry" (atom format) from downloaded RSS
RSSItemsCount = RSSItems.Length-1
End If
Set xmlDOM = Nothing ' clear XML
' writing Header
if RSSItemsCount > 0 then
Response.Write MainTemplateHeader
End If
j = -1
For i = 0 To RSSItemsCount
Set RSSItem = RSSItems.Item(i)
' fix for the issue when a description from a previous item
' is used if current item description is empty provided by George Sexton
RSSdescription=" "
RSSCommentsLink=" "
for each child in RSSItem.childNodes
Select case lcase(child.nodeName)
case "title"
RSStitle = child.text
case "link"
If child.Attributes.length>0 Then
RSSLink = child.GetAttribute("href")
if (RSSLink <> "") Then
if child.GetAttribute("rel") <> "alternate" Then
RSSLink = ""
End If
End If
End If ' if has attributes
If RSSLink = "" Then
RSSlink = child.text
End If
case "description"
RSSdescription = child.text
case "content" ' atom format
RSSdescription = child.text
case "published"' atom format
RSSDate = child.text
case "pubdate"
RSSDate = child.text
case "comments"
RSSCommentsLink = child.text
case "category"
Set CategoryItems = RSSItem.getElementsByTagName("category")
RSSCategory = ""
for each categoryitem in CategoryItems
if RSSCategory <> "" Then
RSSCategory = RSSCategory & ", "
End If
RSSCategory = RSSCategory & categoryitem.text
Next
End Select
next
' now check filter
If (InStr(RSSTitle,Keyword1)>0) or (InStr(RSSTitle,Keyword2)>0) or (InStr(RSSDescription,Keyword1)>0) or (InStr(RSSDescription,Keyword2)>0) then
j = J+1
if J
ItemContent = Replace(ItemTemplate,"{LINK}",RSSlink)
ItemContent = Replace(ItemContent,"{TITLE}",RSSTitle)
ItemContent = Replace(ItemContent,"{DATE}",RSSDate)
ItemContent = Replace(ItemContent,"{COMMENTSLINK}",RSSCommentsLink)
ItemContent = Replace(ItemContent,"{CATEGORY}",RSSCategory)
Response.Write Replace(ItemContent,"{DESCRIPTION}",RSSDescription)
ItemContent = ""
RSSLink = ""
End if
End If
Next
' writing Footer
if RSSItemsCount > 0 then
Response.Write MainTemplateFooter
else
Response.Write ErrorMessage
End If
' Response.End ' uncomment this for use in on-the-fly output
%>

Getting type mismatch error '[string : " "]'

vikas251074 — Tue, 27 Oct 2009 14:12:10 GMT

I am getting error above in following code since few days giving tension day and night.

How can I solve this? I am facing since Oct.25. in line no. 362

After doing a lot of homework, I am surrendered to you.

Expand|Select|Wrap|Line Numbers

<%@ Language=VBScript%>
<%Option Explicit%>
Barauni Refinery - Post Retirement Data Management
function main()
{
window.location = "sabf_menu.asp"
}
function capital(temp) {
alert(temp);
var str = temp.value;
document.getElementById(temp.id).value = str.toUpperCase();
}
function cal1third() {
var amt = 1000;
var amt1 = amt/3;
document.getElementbyId('v1third').value = amt1;
}
function confirmsubmit()
{
var agree = confirm("Do you want to save this record?")
if (agree)
return true;
else
return false;
}
<%
Dim R
Dim SQL
Dim vempno, vempname, vdesign, vsex, vgrade, vcategory, vdob, vdoj, vdos, vdojgr, vreason, voption, vcommutation
Dim vrehabilitation, vBasic2003, vstag2003, vpersonalpay2003, vsplpay2003, vadhoc2003, vnpa2003, vda2003, vprotectpay2003
Dim vbasic, vstag, vpersonalpay, vsplpay, vadhoc, vnpa, vda, vprotectpay,vbeneficiaryspouse, vdobos, valtnominee1
Dim valtnominee2, valtnominee3, valtnominee4, valtnominee5, valtnominee6, vaddress, vcontact, vassesseno, vtotalamt, v1third
Dim vrefund, vmonthlypension, vchoiceopt, vannuityno, vannuityamt
Dim errorMsg
Dim conn
Dim i
Dim vcount
Dim vdobyyyy, vdobmm, vdobdd
Dim vdojyyyy, vdojmm, vdojdd
Dim vdosyyyy, vdosmm, vdosdd
Dim vdojgryyyy, vdojgrmm, vdojgrdd
Dim vdobosyyyy, vdobosmm, vdobosdd
Dim no_of_day
Set conn = Server.Createobject("ADODB.Connection")
conn.Open "DSN=ORA; User ID = scott; Password = tiger"
Set R = Server.CreateObject("ADODB.Recordset")
'CLEAR THE FORM VARIABLES
%><%
If Not IsEmpty(Request.Form("submit")) then
vempno = Request.Form("vempno")
vempname = Request.Form("vempname")
vdesign = Request.Form("vdesign")
vsex = Request.Form("vsex")
vgrade = Request.Form("vgrade")
vcategory = Request.Form("vcategory")
vdobyyyy = Request.Form("vdobyyyy")
vdobmm = Request.Form("vdobmm")
vdobdd = Request.Form("vdobdd")
vdojyyyy = Request.Form("vdojyyyy")
vdojmm = Request.Form("vdojmm")
vdojdd = Request.Form("vdojdd")
vdosyyyy = Request.Form("vdosyyyy")
vdosmm = Request.Form("vdosmm")
vdosdd = Request.Form("vdosdd")
vdojgryyyy = Request.Form("vdojgryyyy")
vdojgrmm = Request.Form("vdojgrmm")
vdojgrdd = Request.Form("vdojgrdd")
vdobosyyyy = Request.Form("vdobosyyyy")
vdobosmm = Request.Form("vdobosmm")
vdobosdd = Request.Form("vdobosdd")
vreason = Request.Form("vreason")
voption = Request.Form("voption")
vcommutation = Request.Form("vcommutation")
vrehabilitation = Request.Form("vrehabilitation")
vBasic2003 = Request.Form("vBasic2003")
vstag2003 = Request.Form("vstag2003")
vpersonalpay2003 = Request.Form("vpersonalpay2003")
vsplpay2003 = Request.Form("vsplpay2003")
vadhoc2003 = Request.Form("vadhoc2003")
vnpa2003 = Request.Form("vnpa2003")
vda2003 = Request.Form("vda2003")
vprotectpay2003 = Request.Form("vprotectpay2003")
vBasic = Request.Form("vBasic")
vstag = Request.Form("vstag")
vpersonalpay = Request.Form("vpersonalpay")
vsplpay = Request.Form("vsplpay")
vadhoc = Request.Form("vadhoc")
vnpa = Request.Form("vnpa")
vda = Request.Form("vda")
vprotectpay = Request.Form("vprotectpay")
vbeneficiaryspouse = Request.Form("vbeneficiaryspouse")
valtnominee1 = Request.Form("valtnominee1")
valtnominee2 = Request.Form("valtnominee2")
valtnominee3 = Request.Form("valtnominee3")
valtnominee4 = Request.Form("valtnominee4")
valtnominee5 = Request.Form("valtnominee5")
valtnominee6 = Request.Form("valtnominee6")
vaddress = Request.Form("vaddress")
vcontact = Request.Form("vcontact")
vassesseno = Request.Form("vassesseno")
vannuityno = Request.Form("vannuityno")
vannuityamt = Request.Form("vannuityamt")
v1third = Request.Form("v1third")
vrefund = Request.Form("vrefund")
vmonthlypension = Request.Form("vmonthlypension")
vchoiceopt = Request.Form("vchoiceopt")
If len(vempno) = 0 then
errorMsg = "You must enter employee number."
Else
R.Open "SELECT count(empno) vcount FROM sabf WHERE empno = " & vempno, conn
If Cint(R("vcount")) > 0 Then
errorMsg = "Employee already exist"
End If
R.Close
End If
If len(errorMsg) = 0 Then
If len(vempname) = 0 Then
errorMsg = "Your must enter employee name."
Elseif len(vempname) > 50 Then
errorMsg = "The employee name > 50 characters. Please reduce the size."
Else
For i = 1 to len(vempname)
If instr(1, "abcdefghijklmnopqrstuvwxyz ", mid(vempname, i, 1), vbTextCompare) = 0 then
errorMsg = "The employee name is invalid. Please re-enter this field."
Exit For
End If
Next
End If
End If
If len(errorMsg) = 0 Then
If len(vdesign) = 0 Then
errorMsg = "Your must enter designation."
Elseif len(vdesign) > 20 Then
errorMsg = "The employee designation > 20 characters. Please reduce the size."
Else
For i = 1 to len(vdesign)
If instr(1, "_/()[]{}abcdefghijklmnopqrstuvwxyz0123456789 ", mid(vdesign, i, 1), vbTextCompare) = 0 then
errorMsg = "The employee designaton is invalid. Please re-enter this field."
Exit For
End If
Next
End If
End If
If len(errorMsg) = 0 Then
If len(vgrade) = 0 Then
errorMsg = "Your must enter grade of employee."
Elseif len(vgrade) > 10 Then
errorMsg = "The grade of employee > 10 characters. Please reduce the size."
Else
For i = 1 to len(vgrade)
If instr(1, "_/()[]{}IVABCDEFGHI12345678 ", mid(vgrade, i, 1), vbTextCompare) = 0 then
errorMsg = "The grade of employee is invalid. Please re-enter this field."
Exit For
End If
Next
End If
End If
If len(errorMsg) = 0 Then
If len(vaddress) = 0 Then
errorMsg = "Your must enter present address of employee."
Elseif len(vaddress) > 100 Then
errorMsg = "The address you entered is > 100 characters. Please reduce the size."
Else
For i = 1 to len(vaddress)
If instr(1, ",-s_/()[]{}ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 ", mid(vaddress, i, 1), vbTextCompare) = 0 then
errorMsg = "The address you entered is invalid. Please re-enter address."
Exit For
End If
Next
End If
End If
If len(errorMsg) = 0 Then
If len(vassesseno) = 0 Then
errorMsg = "Your must enter assesse no. of employee."
Elseif len(vassesseno) > 50 Then
errorMsg = "The assesse no you entered is > 50 characters. Please reduce the size."
Else
For i = 1 to len(vassesseno)
If instr(1, "_/()[]{}abcdefghijklmnopqrstuvwxyz0123456789 ", mid(vassesseno, i, 1), vbTextCompare) = 0 then
errorMsg = "The assesse no you entered is invalid. Please re-enter assesse no."
Exit For
End If
Next
End If
End If
If len(errorMsg) = 0 Then
If len(vcontact) = 0 Then
errorMsg = "Your must enter contact no. of employee."
Elseif len(vcontact) > 10 Then
errorMsg = "The contact no. you entered is > 10 characters. Please reduce the size."
Else
For i = 1 to len(vcontact)
If instr(1, "_/()[]{}abcdefghijklmnopqrstuvwxyz0123456789 ", mid(vcontact, i, 1), vbTextCompare) = 0 then
errorMsg = "The contact no. you entered is invalid. Please re-enter contact no."
Exit For
End If
Next
End If
End If
If len(errorMsg) = 0 Then
R.Open "Select * from SABF", conn, 2, 3
R.Addnew
R("empno") = vempno
R("empname") = vempname
R("design") = vdesign
R("sex") = vsex
R("grade") = vgrade
R("category") = vcategory
R("dob") = Cdate(vdobmm & "/" & vdobdd & "/" & vdobyyyy)
R("doj") = Cdate(vdojmm & "/" & vdojdd & "/" & vdojyyyy)
R("dos") = Cdate(vdosmm & "/" & vdosdd & "/" & vdosyyyy)
R("dojgr") = Cdate(vdojgrmm & "/" & vdojgrdd & "/" & vdojgryyyy)
R("reason") = vreason
R("option1") = voption
R("commutation") = vcommutation
R("rehabilitation") = vrehabilitation
R("basic2003") = vbasic2003
R("stag2003") = vstag2003
R("personalpay2003") = vpersonalpay2003
R("splpay2003") = vsplpay2003
R("adhoc2003") = vadhoc2003
R("npa2003") = vnpa2003
R("da2003") = vda2003
R("protectpay2003") = vprotectpay2003
R("basic") = vbasic
R("stag") = vstag
R("personalpay") = vpersonalpay
R("splpay") = vsplpay
R("adhoc") = vadhoc
R("npa") = vnpa
R("da") = vda
R("protectpay") = vprotectpay
R("beneficiaryspouse") = vbeneficiaryspouse
R("dobos") = Cdate(vdobosmm & "/" & vdobosdd & "/" & vdobosyyyy)
R("altnominee1") = valtnominee1
R("altnominee2") = valtnominee2
R("altnominee3") = valtnominee3
R("altnominee4") = valtnominee4
R("altnominee5") = valtnominee5
R("altnominee6") = valtnominee6
R("address") = vaddress
R("contact") = vcontact
R("assesseno") = vassesseno
R("annuityno") = vannuityno
R("annuityamt") = vannuityamt
R("onethird") = v1third
R("refund") = vrefund
R("monthlypension") = vmonthlypension
R("choiceopt") = vchoiceopt
R.UPdate
R.Close%>
'CLEAR THE FORM VARIABLES
<%
End If
End If
'250
%>
<%
If len(errorMsg) > 0 Then
Response.Write "
" & errorMsg & "
"
End If
%>
New SABF Entry
Employee No :
">
Employee Name :
">
Designation :
"/>
Sex :
">
Select
Male
Female
Grade :
">
Select
<%SQL = "SELECT grade FROM grademst ORDER BY grade"
R.Open SQL, conn
do until R.eof %>
"><%=R("grade")%>
<% R.Movenext
loop
R.Close%>
Category :
">
Select
Officer
Staff
Date of Birth :
">
Select
<%i=1947
do while i <= Cint(year(date())) - 18%>
"><%=i%>
<%i = i + 1
loop%>
">
<%i=1
Do while i <= 12%>
"><%=i%>
<%i = i + 1
loop%>
">
<%If vdobyyyy mod 4 = 0 And vdobmm = 2 Then
no_of_day = 29
ElseIf vdobyyyy mod 4 <> 0 and vdobmm = 2 Then
no_of_day = 28
ElseIf vdobmm=4 or vdobmm=6 or vdobmm=9 or vdobmm=11 Then
no_of_day = 30
Else
no_of_day = 31
End If
i=1
Do while i <= no_of_day%>
"><%=i%>
<%i = i + 1
loop%>
Date of Join :
">
Select
<%i=1965
do while i <= year(date())%>
"><%=i%>
<%i = i + 1
loop%>
">
<%i=1
Do while i <= 12%>
"><%=i%>
<%i = i + 1
loop%>
">
<%If vdojyyyy mod 4 = 0 And vdojmm = 2 Then
no_of_day = 29
ElseIf vdojyyyy mod 4 <> 0 and vdojmm = 2 Then
no_of_day = 28
ElseIf vdojmm=4 or vdojmm=6 or vdojmm=9 or vdojmm=11 Then
no_of_day = 30
Else
no_of_day = 31
End If
i=1
Do while i <= no_of_day%>
"><%=i%>
<%i = i + 1
loop%>
Date of Seperation :
">
Select
<%i=1965
do while i <= year(date())%>
"><%=i%>
<%i = i + 1
loop%>
">
<%i=1
Do while i <= 12%>
"><%=i%>
<%i = i + 1
loop%>
">
<%If vdosyyyy mod 4 = 0 And vdosmm = 2 Then
no_of_day = 29
ElseIf vdosyyyy mod 4 <> 0 and vdosmm = 2 Then
no_of_day = 28
ElseIf vdosmm=4 or vdosmm=6 or vdosmm=9 or vdosmm=11 Then
no_of_day = 30
Else
no_of_day = 31
End If
i=1
Do while i <= no_of_day%>
"><%=i%>
<%i = i + 1
loop%>
Date of Join in Grade A :
">
Select
<%i=1965
do while i <= year(date())%>
"><%=i%>
<%i = i + 1
loop%>
">
<%i=1
Do while i <= 12%>
"><%=i%>
<%i = i + 1
loop%>
">
<%If vdojgryyyy mod 4 = 0 And vdojgrmm = 2 Then
no_of_day = 29
ElseIf vdojgryyyy mod 4 <> 0 and vdojgrmm = 2 Then
no_of_day = 28
ElseIf vdojgrmm=4 or vdojgrmm=6 or vdojgrmm=9 or vdojgrmm=11 Then
no_of_day = 30
Else
no_of_day = 31
End If
i=1
Do while i <= no_of_day%>
"><%=i%>
<%i = i + 1
loop%>
(If so, in case of staff)
Reason of Seperation
">
Select
Death
OVSS
VRS
SUP
Rehabilitation Option :
">
Select
R1
R2
R3
Option opted :
">
Select
<%R.Open "SELECT code, description FROM optionopted", conn
do until R.eof %>
"><%=R("description")%>
<%R.Movenext
loop
R.Close%>
As on 2003
                 Basic Salary :
                 ">


                 Stagnation Increment :
                 ">


                 Personal Pay :
                 ">


                 Special Pay :
                 ">


                 Adhoc Pay :
                 ">


                 NPA :
                 ">


                 DA :
                 ">


                 Protected Pay :
                 ">
As on Superannuation
                 Basic Salary :
                 ">


                 Stagnation Increment :
                 ">


                 Personal Pay :
                 ">


                 Special Pay :
                 ">


                 Adhoc Pay :
                 ">


                 NPA :
                 ">


                 DA :
                 ">


                 Protected Pay :
                 ">

Name of Beneficiary(Spouse) :

Date of Birth of Spouse :

Alternate Nominee(1) :

Alternate Nominee(2) :

Alternate Nominee(3) :

Alternate Nominee(4) :

Alternate Nominee(5) :

Alternate Nominee(6) :

Select

<%i=1965

do while i <= year(date())%>

"><%=i%>

<%i = i + 1

loop%>

<%i=1

Do while i <= 12%>

"><%=i%>

<%i = i + 1

loop%>

<%If vdobosyyyy mod 4 = 0 And vdobosmm = 2 Then

no_of_day = 29

ElseIf vdobosyyyy mod 4 <> 0 and vdobosmm = 2 Then

no_of_day = 28

ElseIf vdobosmm=4 or vdobosmm=6 or vdobosmm=9 or vdobosmm=11 Then

no_of_day = 30

Else

no_of_day = 31

End If

i=1

Do while i <= no_of_day%>

"><%=i%>

<%i = i + 1

loop%>

Address :
">
Contact No :
">
1/3 Commutation :
">
Select
Yes
No
Assess No :
">
Annuity No :
">
Annuity Amount :
" id="vannuityamt"/>
One Third Commutation :
" id="v1third">
Purchase Price Annuity :
">
Uncommuted Monthly Pension :
">
Pension amount as per opted :
">

Bytes - answers

Subscript out of range Error

GetObject not working after migrating

Want to Display the database values in 3 columns.

How to populate the dropdown values from another dropdown.

Download the current form/brochure by a button click??

update multiple records corresponding to ID in one go ?

CDO.Message issue on voxdomains

Selected collating sequence not supported by the operating system

asp classic vb6: upload multipe image. Rename files and delete.

Use field on web page as MS Access input parameter

to display string in vertical order in ASP

retain value of radio button on the next page or previous page

asp connection to SQL server DB

Help changing RSS feed window target

Getting type mismatch error '[string : " "]'

New SABF Entry