<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% strNew = Request.QueryString("N") if strNew = "1" then Session("BookstoreName") = "" Session("BookstoreAddress") = "" Session("BookstoreAddress2") = "" Session("City") = "" Session("State") = "" Session("Zip") = "" Session("ContactFirstName") = "" Session("ContactLastName") = "" Session("PhoneNumber") = "" Session("Email") = "" Session("URL") = "" Session("BookstoreUsername") = "" Session("BookstorePassword") = "" Session("BankName") = "" Session("RouterNumber") = "" Session("AccountNumber") = "" Session("Sunday_Open") = "" Session("Sunday_Closed") = "" Session("Monday_Open") = "" Session("Monday_Closed") = "" Session("Tuesday_Open") = "" Session("Tuesday_Closed") = "" Session("Wednesday_Open") = "" Session("Wednesday_Closed") = "" Session("Thursday_Open") = "" Session("Thursday_Closed") = "" Session("Friday_Open") = "" Session("Friday_Closed") = "" Session("Saturday_Open") = "" Session("Saturday_Closed") = "" Session("InstitutionState") = "" Session("InstitutionName1") = "" Session("InstitutionName2") = "" Session("InstitutionName3") = "" Session("InstitutionName4") = "" Session("InstitutionName5") = "" else strName = Session("BookstoreName") strAddress = Session("BookstoreAddress") strAddress2 = Session("BookstoreAddress2") strCity = Session("City") strState = Session("State") strZip = Session("Zip") strContactFirstName = Session("ContactFirstName") strContactLastName = Session("ContactLastName") strPhone = Session("PhoneNumber") strEmail = Session("Email") strURL = Session("URL") strUsername = Session("BookstoreUsername") strPassword = Session("BookstorePassword") strBank = Session("BankName") strRouter = Session("RouterNumber") strAccount = Session("AccountNumber") end if Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open Application("mybookhead_DataConnection") strSQL = "SELECT STATEABBR, STATENAME FROM L_STATE ORDER BY STATEABBR;" set objState = objConn.Execute(strSQL) %>

										<% select case ucase(Application("InventoryStatus")) case "GREEN": strImage = "green" strMessage = Application("GreenMessage") strLabel = " Green " case "YELLOW": strImage = "yellow" strMessage = Application("YellowMessage") strLabel = " Yellow" case "ORANGE": strImage = "orange" strMessage = Application("OrangeMessage") strLabel = " Orange " case "RED": strImage = "red" strMessage = Application("RedMessage") strLabel = " Red " case else: strImage = "blue" strMessage = Application("BlueMessage") strLabel = " Blue " end select Response.Write ("") Response.Write (" ") Response.Write (" ") Response.Write (" ") Response.Write (" ") Response.Write (" ") Response.Write (" ") Response.Write (" ") Response.Write (" ") Response.Write (" ") Response.Write (" ") Response.Write (" ") Response.Write (" ") Response.Write (" ") Response.Write (" ") Response.Write ("   Current Status:"& strLabel & " ") Response.Write (" ") Response.Write (" ") Response.Write (" ") Response.Write (" ") Response.Write (" ") Response.Write (" ") Response.Write ("   " & strMessage & " ") Response.Write (" ") %>
(All Fields Required) Bookstore Name: Address: City: State: <% if not objState is nothing then if not objState.EOF then do until objState.EOF if strState = objState(0) then Response.Write ("" & trim(objState(0)) & "-" & trim(objState(1)) & "") else Response.Write ("" & trim(objState(0)) & "-" & trim(objState(1)) & "") end if objState.MoveNext loop objState.MoveFirst end if end if %> Zip Contact Person: (First Name) (Last Name) Phone Number:   - Email: Confirm Email: URL: Username: (5 Character Minimum) Password: (5 Character Minimum) Confirm Password:
Home | How it Works | FAQ | Contact | Advertise | Careers | Register | Login
Powered by HP Think - Copyright © 2007 mybookhead- Privacy Statement

<% objConn.Close %>