<% writeTitle() %> - Customer Sign In

<%@ Register TagPrefix="uc1" TagName="TopSubBanner" Src="CommonControls/TopSubBanner.ascx" %> <%@ Register TagPrefix="uc1" TagName="TopBanner" Src="CommonControls/TopBanner.ascx" %> <%@ Register TagPrefix="uc1" TagName="Instruction" Src="CommonControls/Instruction.ascx" %> <%@ Register TagPrefix="uc1" TagName="LeftColumnNav" Src="CommonControls/LeftColumnNav.ascx" %> <%@ Register TagPrefix="uc1" TagName="Footer" Src="CommonControls/Footer.ascx" %> <%@ Register TagPrefix="uc1" TagName="RightColumnNav" Src="CommonControls/RightColumnNav.ascx" %> <%@ Page Language="vb" AutoEventWireup="false" Codebehind="CustSignIn.aspx.vb" Inherits="StoreFront.StoreFront.CustSignIn" TargetSchema="http://schemas.microsoft.com/intellisense/nav4-0"%> <%@Import Namespace="System.Data.SqlClient" %> <% '********************************************************** '****** Added by Dimitrios Mpougas ***************** Dim SubmissionID As Integer Dim Fnm As String Dim Lnm As String Dim Eml As String Dim Psw As String Dim SData As String Dim RSLT() As String Dim cmdTXT As New SqlCommand If Not Request.QueryString("sid") Is Nothing Then SubmissionID = CInt(Request.QueryString("sid")) Else SubmissionID = 0 End If If SubmissionID > 0 Then Dim Conn As New SqlConnection("Server=AHD1136.activehost.com;UID=proticasupport_sa;PWD=4PM5dxN2;Database=proticasupport") Try cmdTXT.Connection = Conn cmdTXT.CommandText = "SELECT submissiondata from xlaAFPsubmissions WHERE submissionid=" & SubmissionID Conn.Open() SData = cmdTXT.ExecuteScalar Catch ex As Exception Finally Conn.Close() Conn.Dispose() cmdTXT.Dispose() End Try If Not SData Is Nothing Then If SData.Length > 0 Then RSLT = SData.Split("|ЌА") Fnm = RSLT(0).Replace(Chr(13), "") Fnm = Fnm.Replace(Chr(10), "") Fnm = Fnm.Replace("ЌА", "") Fnm = Fnm.Replace(vbTab, "") Fnm = Trim(Fnm) Lnm = RSLT(1).Replace(Chr(13), "") Lnm = Lnm.Replace(Chr(10), "") Lnm = Lnm.Replace("ЌА", "") Lnm = Lnm.Replace(vbTab, "") Lnm = Trim(Lnm) Eml = RSLT(2).Replace(Chr(13), "") Eml = Eml.Replace(Chr(10), "") Eml = Eml.Replace("ЌА", "") Eml = Eml.Replace(vbTab, "") Eml = Trim(Eml) Psw = RSLT(4).Replace(Chr(13), "") Psw = Psw.Replace(Chr(10), "") Psw = Psw.Replace("ЌА", "") Psw = Psw.Replace(vbTab, "") Psw = Trim(Psw) End If End If End If '*********************************************************** %> <% writeTitle() %> - Customer Sign In <% '@BEGINVERSIONINFO '@APPVERSION: 6.0.1.0 '@STARTCOPYRIGHT 'The contents of this file are protected under the United States 'copyright laws and is confidential and proprietary to 'LaGarde, Incorporated. Its use or disclosure in whole or in part without the 'expressed written permission of LaGarde, Incorporated is expressly prohibited. ' '(c) Copyright 2002 by LaGarde, Incorporated. All rights reserved. '@ENDCOPYRIGHT '@ENDVERSIONINFO %> <% Me.PageHeader %>

Sign In To Your Account

To access your account, enter your e-mail address and password below.

E-Mail Address:

Password:

Forgot Your Password?

Create a New Account

Sign up for an account today and benefit from faster checkout and more site features.

First Name: *

Last Name: *

E-Mail Address: *

Password: *

Confirm Password: *

Subscribe To Mail List:

(We will never share or sell your information.)