Microsoft MOET Contact Update Tool

ASP File Map

3/12/2000

http://wwopsdev/wwops_img/img/moet/contactsUpdate.asp (1)

contactsUpdate2 (2)

contactsUpdateLocation (3) contactsUpdateContact (8)

contactsInsertLocation (4) contactsUpdateLocation2 (6) contactsInsertContact (9) contactsModifyContact (11)

contactsInsertLocation2 (5) contactsModifyLocation (7) contactsInsertContact2 (10)

\ . . \img\moet\contactsUpdate.asp 1

<%@ language=vbscript%>

<html>

<head>

</head>

<body>

<p align= “center”> <b> Update MOET Contact List </p>

dim connMoetConnection

set connMoetConnection = Server.CreateObject (“ADODB.Connection”)

connMoetConnection.open “provider = Microsoft.Jet.OLEDB.4.0;

data source = d:inetpub\wwwroot\mdb\img.mdb;”

SQLQueryRegion = “SELECT DISTINCT Region FROM tblMOETContactList”

Set Regions = connMoetConnection.Execute (SQLQueryRegion)

<option selected value= “”> SELECT REGION  

Do Until REGIONS.EOF = True

REGIONS.MoveNext

Loop

</SELECT>

</form>

</font>

</body>

</html>

\ . . \img\moet\contactsUpdate2.asp 2

<%@ language=vbscript%>

<html>

<head>

<!--

Sub cmdContacts_onclick

contactsUpdate2.cmdContacts.style.visibility= “hidden”

End Sub

-->

</SCRIPT>

</head>

<body>

<p align= “center”> <b> Update MOET Contact List </b> <br> <br>

dim strRegion

dim Connection

strRegion = Request.Form(“cboRegion”)

Set Connection = Server.CreateObject(“ADODB.Connection”)

Connection.Open “provider=Microsoft.Jet.OLEDB.4.0; data source= d:inetpub\wwwroot\mdb\img.mdb;”

SQLQueryLocation = “SELECT DISTINCT SalesLocation FROM tblMOETContactList WHERE

Region = ‘” & strRegion & “’ ORDER BY SalesLocation”

Set Locations = Connection.Execute(SQLQueryLocation)

If Request.Form(“cboRegion”) = “” then

Response.Write (“Press your browser’s Back button and select a Region to continue.”)

CboLocation.disabled = “True”

End if

<p align= “center”> &nbsp

Region: <INPUT value = “<%=strRegion%>” size=10 id=showRegion name=showRegion

Style=.border=none style=.font=bold readonly> <br><br>

<INPUT type= “text” style= “BORDER-STYLE: none; FONT-SIZE: small”

style= “visibility: hidden” size=65 id=text1 name=text1

value= “To edit contact information, select their location and click Continue.”> <br> <br>

<option selected value= “”> SELECT Sales Location   

Do Until Locations.EOF = True

Locations.Movenext

Loop

</select>

Session(“showRegion”) = strRegion

Session(“showLocation”) = cboLocation

Click Here To Add or Edit a Sales Location </a></font> </p> <br><br>

START OVER </a> </font> </p> <br>

</form> </font> </body> </html>

\ . . \img\moet\contactsUpdateLocation.asp 3

<%@ language=vbscript%>

<html>

<head>

</head>

<body>

<p align= “center”> <b> Update MOET Contact List </b> <br><br>

dim strRegion

dim Connection

strRegion = Session(“showRegion”)

Set Connection = Server.CreateObject(“ADODB.Connection”)

Connection.Open “provider=Microsoft.Jet.OLEDB.4.0;data source= d:inetpub\wwwroot\mdb\img.mdb;”

SQLQueryLocation= “SELECT DISTINCT SalesLocation FROM tblMOETContactList WHERE

Region = ‘” & strRegion & “’ ORDER BY SalesLocation”

Set Locations = Connection.Execute(SQLQueryLocation)

Region: <INPUT value= “<%=strRegion%> size=10 id=showRegion name=showRegion

style=.border=none style=.font=bold readonly> <br><br>

<INPUT type= “text” style= “BORDER-STYLE: none; FONT-SIZE: small” size=60 id=text1 name=text1

value= “To edit a Sales Location, select the location and click Continue.”> <br><br>

<option selected value= “”> Select Sales Location  

Do Until Locations.EOF = True

Locations.MoveNext

Loop

</select>

Session(“showLocation”)= cboLocation

Session(“showRegion”)= strRegion

Click Here To Add a Sales Location

</a> </font> </p> <br><br>

START OVER

</a> </font> </p>

</form>

</font>

</body>

</html>

\ . . \img\moet\contactsInsertLocation.asp 4

<%@ language=vbscript%>

<html>

<head>

</head>

<body>

<p align= “center”> <b> Update MOET Contact List </b> <br><br>

dim strRegion

dim NewID

strRegion = Session(“showRegion”)

Set Connection = Server.CreateObject(“ADODB.Connection”)

Connection.Open “provider=Microsoft.Jet.OLEDB.4.0;data source= d:inetpub\wwwroot\mdb\img.mdb;”

SQLQueryID= “SELECT DISTINCT ID FROM tblMOETContactList”

Set IDNumbers = Connection.Execute(SQLQueryID)

SQLQueryTitles = “SELECT DISTINCT Title FROM tblMOETContactList WHERE

Region = ‘” & strRegion & “’ ORDER BY Title”

Set Titles = Connection.Execute(SQLQueryTitles)

NewID = 1

Do Until IDNumbers.EOF = True

NewID = NewID + 1

IDNumbers.MoveNext

Loop

<p align=center> <b>Add to MOET Contact List </b>

Region: <INPUT value= “<%=strRegion%>” id=showRegion name=showRegion size=5

style=.border=none style=.font=bold readonly>

New Location: <INPUT id=newLocation name=newLocation style=.font=bold>

</b></p>

Do Until Titles.EOF = True

<tr><td><INPUT value= “<%=Titles(“Title”)%>”

style=.visibility=hidden id=txtTitle name=txtTitle readonly>

Titles.MoveNext

<td><INPUT value= “<%=NewID%>”

style=.visibility=hidden id=txtID name=txtID readonly>

NewID = NewID + 1

Loop

</table>

</b>

<FONT size=2> <a href= “http://wwopsdev/wwops_img/moet/contactsUpdate.asp”> START OVER </a>

</font>

</p>

</form>

</body>

</html>

\ . . \img\moet\contactsInsertLocation2.asp 5

<%@ language=vbscript%>

<html>

<head>

</head>

<body>

‘Error trapping

dim ItsAllGood

dim Incomplete

ItsAllGood = “True”

Incomplete = “False

‘Trap if user doesn’t enter a new location

If Request.Form(“newLocation”) = “” then Incomplete = “True”

If Incomplete = “True” then

Response.Write(“Enter the New Location name.”)

Response.Write(“Use your browser’s Back button and complete the form.”)

ItsAllGood = “False”

End if

‘Trap if user enters form illegally

If Request.Form.Count <= 0 then

Response.Write(“You have entered this form incorrectly.

This page is only accessible from the contactsUpdateContact.asp page.”)

ItsAllGood = “False”

End if

If ItsAllGood = “True” then

Call WriteRecord

End if

sub WriteRecord

dim strInsertSql

dim commandObject

dim n

set Connection = Server.CreateObject(“ADODB.Connection”)

Connection.open “provider=Microsoft.Jet.OLEDB.4.0;

data source= d:inetpub\wwwroot\mdb\img.mdb;”

set commandObject = Connection

for n = 1 to Request.Form(“txtID”).Count

strInsertSql = “INSERT INTO tblMOETContactList values(“

strInsertSql = strInsertSql + “’” + Request.Form(“txtID”)(n) + “’,”

strInsertSql = strInsertSql + “’” + Session(“showRegion”) + “’,”

strInsertSql = strInsertSql + “’” + Request.Form(“newLocation”) + “’,”

strInsertSql = strInsertSql + “’” + Request.Form(“txtTitle”)(n) + “’,”

strInsertSql = strInsertSql + “’” + Request.Form(“txtContact”) + “’,”

strInsertSql = strInsertSql + “’” + Request.Form(“txtAlias”) + “’,”

‘ (to view SQL string, remove comment mark from the following line)

‘ Response.Write(strInsertSql)

commandObject.Execute(strInsertSql)

Connection.Close

Call DisplayConfirmation

End sub

sub DisplayConfirmation

Response.Write(“The new location has been successfully added to the MOET Contact database. ”)

Response.Write(“Press your browser’s Back button to Add or Modify other Sales Locations in this Region. ”)

end sub

</p>

</form>

</body>

</html>

\ . . \img\moet\contactsUpdateLocation2.asp 6

<%@ language=vbscript%>

<html>

<head>

</head>

<body>

dim strRegion

dim strLocation

strRegion = Session(“showRegion”)

strLocation = Request.Form(“cboLocation”)

Set Connection = Server.CreateObject(“ADODB.Connection”)

Connection.Open “provider=Microsoft.Jet.OLEDB.4.0;data source= d:inetpub\wwwroot\mdb\img.mdb;”

SQLQueryContacts= “SELECT * FROM tblMOETContactList WHERE SalesLocation = ‘” & strLocation & “’”

Set CONTACT = Connection.Execute(SQLQueryContacts)

SQLQueryTitles = “SELECT DISTINCT Title FROM tblMOETContactList WHERE

Region = ‘” & strRegion & “’ ORDER BY Title”

<p align=center> <b>Add to MOET Contact List </b>

Region: <INPUT value= “<%=strRegion%>” id=showRegion name=showRegion size=5

style=.border=none style=.font=bold readonly>

Old Sales Location Name: <INPUT value= “<%=strLocation%>” id=showLocation name=showLocation

style=.border=none style=.font=bold readonly>

New Sales Location Name: <INPUT value= “<%=strLocation%>” id=newLocation name=newLocation

style=.font=bold >

</p>

Session(“showRegion”) = strRegion

Session(“showLocation”) = strLocation

<br>

<p align=center><FONT size=4> Edit Sales Location name in the box above, then click “Update”. </font>

<br><b>

<FONT size=3> Sales Locations can not be deleted, only changed above. <br> </font>

<FONT size=2> Please note: Do not include an apostrophe in any field. <br> <br> </b>

<a href= “ http://wwopsdev/wwops_img/img/moet/contactsUpdate.asp”> START OVER </a>

</font>

</p>

</form>

</body>

</html>

\ . . \img\moet\contactsModifyLocation.asp 7

<%@ language=vbscript%>

<html>

<head>

</head>

<body>

‘Error trapping

dim ItsAllGood

dim Incomplete

ItsAllGood = “True”

Incomplete = “False

‘Trap if user doesn’t enter all information

For n = 1 to Request.Form(“txtName”).Count

If Request.Form(“txtName”)(n) = “” then

If Request.Form(“txtAlias”)(n) <> “” then

Incomplete = “True”

End if

Elseif Request.Form(“txtName”)(n) <> “” then

If Request.Form(“txtAlias”)(n) = “” then

Incomplete = “True”

End if

If Request.Form(“newLocation”) = “” then Incomplete = “True”

If Incomplete = “True” then

Response.Write(“Please enter the new name for this Sales Location.”)

Response.Write(“Use your browser’s Back button and complete the form.”)

ItsAllGood = “False”

End if

‘Trap if user enters form illegally

If Request.Form.Count <= 0 then

Response.Write(“You have entered this form incorrectly.

This page is only accessible from the contactsUpdateContact.asp page.”)

ItsAllGood = “False”

End if

If ItsAllGood = “True” then

Call WriteRecord

End if

sub WriteRecord

dim strInsertSql

dim commandObject

set Connection = Server.CreateObject(“ADODB.Connection”)

Connection.open “provider=Microsoft.Jet.OLEDB.4.0;

data source= d:inetpub\wwwroot\mdb\img.mdb;”

set commandObject = Connection

strInsertSql = “UPDATE tblMOETContactList SET “

strInsertSql = strInsertSql + “tblMOETContactList.SalesLocation= “ + “’” +

Request.Form(“newLocation”) + “’”

strInsertSql = strInsertSql + “ WHERE tblMOETContactList.SalesLocation= “ + “’” +

Session(“showLocation”) + “’”

‘ (to view SQL string, remove comment mark from the following line)

‘ Response.Write(strInsertSql)

commandObject.Execute(strInsertSql)

Connection.Close

Call DisplayConfirmation

End sub

sub DisplayConfirmation

Response.Write(“The MOET Contact database has been successfully updated. ”)

Response.Write(“Press your browser’s Back button to Add or Modify other Sales Locations in this Region. ”)

end sub

</p>

</form>

</body>

</html>

\ . . \img\moet\contactsUpdateContact.asp 8

<%@ language=vbscript%>

<html>

<head>

</head>

<body>

<p align= “center”> <b> Update MOET Contact List </b> <br><br>

dim strLocation

dim strRegion

strLocation = Request.Form(“cboLocation”)

strRegion = Session(“showRegion”)

Set Connection = Server.CreateObject(“ADODB.Connection”)

Connection.Open “provider=Microsoft.Jet.OLEDB.4.0;data source= d:inetpub\wwwroot\mdb\img.mdb;”

SQLQueryContacts= “SELECT * FROM tblMOETContactList WHERE SalesLocation = ‘” & strLocation & “’”

Set Contact = Connection.Execute(SQLQueryContacts)

SQLQueryTitles = “SELECT DISTINCT Title FROM tblMOETContactList WHERE

Region = ‘” & strRegion & “’ ORDER BY Title”

If Request.Form(“cboLocation”) = “” then

Response.Write(“Press your browser’s Back button and select a Sales Location to continue.”)

ShowLocation.disabled = True

End if

Region: <INPUT value= “<%=strRegion%>” id=showRegion name=showRegion size=5

style=.border=none style=.font=bold readonly>

Location: <INPUT value= “<%=strLocation%>” id=showLocation name=showLocation size=18

style=.border=none style=.font=bold readonly>

</b></p>

<th>Title

<th> MOET Contact

<th> email alias

Do Until Contact.EOF = True

<tr>

<td><INPUT size=1 value= “<%=Contact(“ID”)%>”

style=.visibility=hidden id=txtID name=txtID readonly>

<% Set Titles = Connection.Execute(SQLQueryTitles)

Do Until Titles.EOF = True

If Titles(“Title”) <> Contact(“Title”) then

%><option><% = Titles(“Title”) %></option><%

Titles.MoveNext

Else

Titles.MoveNext

End if