Wed Nov 05, 2008 6:35 pm
Wed Nov 05, 2008 6:38 pm
Dim strDomain() As String
Dim strConn() As String
Dim strConn2() As String
Dim strDocMain() As String
Dim strPrPath() As String
ReadConfig(strDomain, strConn, strConn2, strDocMain, strPrPath)
DHLConn2.ConnectionString = strConn2(0)
If Session("OPCTY") = "ED" Or Session("OPCTY") = "NEW" Then
btnCtySave.Visible = True
Else
btnCtySave.Visible = False
End If
If Page.IsPostBack = False Then
If Session("LoginUser") = "" Then
Response.Write("<script language=javascript> window.parent.location.replace
('../eprocurement');</script>")
End If
GetCurr()
Session("CtyCode1") = ""
Session("CtyDesc1") = ""
Session("CtyRegion1") = ""
Session("CtyCurr1") = ""
DataCurrency.Fill(DhlCurrency1)
DHLRegion.Fill(DhlRegion1)
cboCurr.DataBind()
cboRegCode.DataBind()
Session("opMode") = "0"
GetRegcode()
End If
Session("opMode") = "0"
Label1.Text = LocRM4.GetString("CountryCodeLabel")
Label2.Text = LocRM4.GetString("CountryDescLabel")
Label3.Text = LocRM4.GetString("CountryRegCodeLabel")
btnCtySave.Text = LocRM4.GetString("CountryButtonSave")
End Sub
Mon Apr 20, 2009 7:05 pm
Codemiles.com is a participant in the Amazon Services LLC Associates Program, an affiliate advertising program designed to provide a means for sites to earn advertising fees by advertising and linking to Amazon.com
Powered by phpBB © phpBB Group.