GUID in ASP - defined variable does not remain constant

[BigDadyWeaver]

I am using the following code in asp to define a unique and
unpredictable record ID in Access.

<%
'GENERATE UNIQUE ID
Function genguid()
Dim Guid
guid = server.createob ject("scriptlet .typelib").guid
guid=Left(guid, instr(guid,"}") )
genguid=guid
genguid= replace(guid, "}", "")
genguid= replace(genguid , "{", "")
genguid= replace(genguid , "-", "")
genguid= replace(genguid , "'", "")
Set guid=nothing
end function
%>
<% Dim strIDFinal

strIDFinal = genguid

strIDFinal = strIDFinal
%>
I want to use strIDFinal to define a hidden field and I also use
strIDFinal in the redirect url after record insertion.

MM_editRedirect Url = "/greetings/mail_greeting_c .asp?messageID= " &
strIDFinal & ""
The problem is that GUID is generating two separate IDs for the hidden
field and the url

both use the same string variable: strIDFinal

How do I use strIDFinal twice on one page without it getting a unique
value each time? I'm attempting to insert the value into access as
well as mail it off to someone as a record identifier for an egreeting
system much like yahoo's egreetings.
Any help would be appreciated.

thanks

[Manohar Kamath [MVP]]

Call the GenGUID once, store it in a variable (as you are already doing) at
the TOP of the page, and use it as many times you feel like.
--
Manohar Kamath
Editor, .netBooks
www.dotnetbooks.com
"BigDadyWea ver" <ep******@lwr.o rg> wrote in message
news:a4******** *************** ***@posting.goo gle.com...

I am using the following code in asp to define a unique and
unpredictable record ID in Access.

<%
'GENERATE UNIQUE ID
Function genguid()
Dim Guid
guid = server.createob ject("scriptlet .typelib").guid
guid=Left(guid, instr(guid,"}") )
genguid=guid
genguid= replace(guid, "}", "")
genguid= replace(genguid , "{", "")
genguid= replace(genguid , "-", "")
genguid= replace(genguid , "'", "")
Set guid=nothing
end function
%>
<% Dim strIDFinal

strIDFinal = genguid

strIDFinal = strIDFinal
%>
I want to use strIDFinal to define a hidden field and I also use
strIDFinal in the redirect url after record insertion.

MM_editRedirect Url = "/greetings/mail_greeting_c .asp?messageID= " &
strIDFinal & ""
The problem is that GUID is generating two separate IDs for the hidden
field and the url

both use the same string variable: strIDFinal

How do I use strIDFinal twice on one page without it getting a unique
value each time? I'm attempting to insert the value into access as
well as mail it off to someone as a record identifier for an egreeting
system much like yahoo's egreetings.
Any help would be appreciated.

thanks

[Mark Schupp]

Why are you assigning strIDFinal to itself?

How are you determining that the values are different?

Are you generating a new id on the page being posted to or are you getting
the value from the hidden field? It would help if you showed your code.

--
Mark Schupp
Head of Development
Integrity eLearning
www.ielearning.com
"BigDadyWea ver" <ep******@lwr.o rg> wrote in message
news:a4******** *************** ***@posting.goo gle.com...

I am using the following code in asp to define a unique and
unpredictable record ID in Access.

<%
'GENERATE UNIQUE ID
Function genguid()
Dim Guid
guid = server.createob ject("scriptlet .typelib").guid
guid=Left(guid, instr(guid,"}") )
genguid=guid
genguid= replace(guid, "}", "")
genguid= replace(genguid , "{", "")
genguid= replace(genguid , "-", "")
genguid= replace(genguid , "'", "")
Set guid=nothing
end function
%>
<% Dim strIDFinal

strIDFinal = genguid

strIDFinal = strIDFinal
%>
I want to use strIDFinal to define a hidden field and I also use
strIDFinal in the redirect url after record insertion.

MM_editRedirect Url = "/greetings/mail_greeting_c .asp?messageID= " &
strIDFinal & ""
The problem is that GUID is generating two separate IDs for the hidden
field and the url

both use the same string variable: strIDFinal

How do I use strIDFinal twice on one page without it getting a unique
value each time? I'm attempting to insert the value into access as
well as mail it off to someone as a record identifier for an egreeting
system much like yahoo's egreetings.
Any help would be appreciated.

thanks

[BigDaddyWeaver]

<<<<Why are you assigning strIDFinal to itself?>>>>

I was just trying to kill the genGUID. Have since altered. Still
updates ID every time strIDFinal is used.
<<<< How are you determining that the values are different? >>>>

I am writing strIDFinal to page:
<%= strIDFinal %>

<<<< Are you generating a new id on the page being posted to or are you
getting
the value from the hidden field? It would help if you showed your code.

I want to generate one ID. I want to insert it into the database as the
primary key for the record. I want to pass that same variable to the
next page in the url string. The problem is that the value that I write
to the page and the value that gets passed in the url are different.

Here is the entire code. It is lengthy. I will comment key areas with
'%%%%%%%%%%%%%% %%%%%%%%%%%%


<%@LANGUAGE="VB SCRIPT"%>
<!--#include file="../Connections/egreetings.asp" -->
<% dim strMessage
strmessage= Replace(Request ("message"), vbCrLf, "<BR>") %>
<% '%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%
'GENERATE UNIQUE ID
Function genguid()
Dim Guid
guid = server.createob ject("scriptlet .typelib").guid
guid=Left(guid, instr(guid,"}") )
genguid=guid
genguid= replace(guid, "}", "") ' strip out } from generated ID
genguid= replace(genguid , "{", "") ' strip out { from generated ID
genguid= replace(genguid , "-", "") ' strip out - from generated ID
genguid= replace(genguid , "'", "") ' strip out ' from generated ID
Set guid=nothing
end function
%>
<% Dim strIDFinal

strIDFinal = genguid

'%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%
%>
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnecti on
Dim MM_editTable
Dim MM_editRedirect Url
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.Se rverVariables(" SCRIPT_NAME"))
If (Request.QueryS tring <> "") Then
MM_editAction = MM_editAction & "?" & Request.QuerySt ring
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request(" MM_insert")) = "send") Then

MM_editConnecti on = MM_egreetings_S TRING
MM_editTable = "messages"
'%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%
MM_editRedirect Url = "/greetings/mail_greeting_c .asp?messageID= " &
strIDFinal & ""
'%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%
MM_fieldsStr =
"greetingID|val ue|fromemail|va lue|fromname|va lue|toemail|val ue|toname|va
lue|message|val ue|layout|value |fontcolor|valu e|fontsize|valu e|fontface|v
alue|MessageID| value"
MM_columnsStr =
"greetingID|non e,none,NULL|fro memail|',none,' '|fromname|',no ne,''|toemai
l|',none,''|ton ame|',none,''|m essage|',none,' '|layout|',none ,''|fontcolo
r|',none,''|fon tsize|none,none ,NULL|fontface| ',none,''|messa geID|',none,
''"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fields Str, "|")
MM_columns = Split(MM_column sStr, "|")

' set the form values
For MM_i = LBound(MM_field s) To UBound(MM_field s) Step 2
MM_fields(MM_i+ 1) = CStr(Request.Fo rm(MM_fields(MM _i)))
Next

' append the query string to the redirect URL
If (MM_editRedirec tUrl <> "" And Request.QuerySt ring <> "") Then
If (InStr(1, MM_editRedirect Url, "?", vbTextCompare) = 0 And
Request.QuerySt ring <> "") Then
MM_editRedirect Url = MM_editRedirect Url & "?" &
Request.QuerySt ring
Else
MM_editRedirect Url = MM_editRedirect Url & "&" &
Request.QuerySt ring
End If
End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request(" MM_insert")) <> "") Then

' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_field s) To UBound(MM_field s) Step 2
MM_formVal = MM_fields(MM_i+ 1)
MM_typeArray = Split(MM_column s(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_form Val,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_field s)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i )
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues &
") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateOb ject("ADODB.Com mand")
MM_editCmd.Acti veConnection = MM_editConnecti on
MM_editCmd.Comm andText = MM_editQuery
MM_editCmd.Exec ute
MM_editCmd.Acti veConnection.Cl ose

If (MM_editRedirec tUrl <> "") Then
Response.Redire ct(MM_editRedir ectUrl)
End If
End If

End If
%>
<%
Dim greetings__MMCo lParam
greetings__MMCo lParam = "1"
If (Request.querys tring("greeting ID") <> "") Then
greetings__MMCo lParam = Request.queryst ring("greetingI D")
End If
%>
<%
Dim greetings
Dim greetings_numRo ws

Set greetings = Server.CreateOb ject("ADODB.Rec ordset")
greetings.Activ eConnection = MM_egreetings_S TRING
greetings.Sourc e = "SELECT * FROM cards, categories WHERE
cards.greetingI D = " + Replace(greetin gs__MMColParam, "'", "''") + " AND
cards.categoryI D = categories.cate goryID"
greetings.Curso rType = 0
greetings.Curso rLocation = 2
greetings.LockT ype = 1
greetings.Open( )

greetings_numRo ws = 0
%>

<HTML>
<HEAD>
<META NAME="GENERATOR " CONTENT="Micros oft FrontPage 4.0">
<TITLE>Previe w Your e-Greeting at lwr.org</TITLE>

</HEAD>
<BODY BGCOLOR="ffffff " LINK="#660066" ALINK="#660066"
onLoad="MM_prel oadImages('/images/navbar/lwrnavbar_r1_c2 _f3.gif','/image
s/navbar/lwrnavbar_r1_c2 _f2.gif','/images/navbar/lwrnavbar_r1_c2 _f4.gif'
,'/images/navbar/lwrnavbar_r1_c4 _f3.gif','/images/navbar/lwrnavbar_r1_c4
_f2.gif','/images/navbar/lwrnavbar_r1_c4 _f4.gif','/images/navbar/lwrnavb
ar_r1_c6_f3.gif ','/images/navbar/lwrnavbar_r1_c6 _f2.gif','/images/navbar
/lwrnavbar_r1_c6 _f4.gif','/images/navbar/lwrnavbar_r2_c1 _f3.gif','/image
s/navbar/lwrnavbar_r2_c1 _f2.gif','/images/navbar/lwrnavbar_r2_c1 _f4.gif'
,'/images/navbar/lwrnavbar_r2_c3 _f3.gif','/images/navbar/lwrnavbar_r2_c3
_f2.gif','/images/navbar/lwrnavbar_r2_c3 _f4.gif','/images/navbar/lwrnavb
ar_r2_c5_f3.gif ','/images/navbar/lwrnavbar_r2_c5 _f2.gif','/images/navbar
/lwrnavbar_r2_c5 _f4.gif','/images/navbar/lwrnavbar_r3_c2 _f3.gif','/image
s/navbar/lwrnavbar_r3_c2 _f2.gif','/images/navbar/lwrnavbar_r3_c2 _f4.gif'
,'/images/navbar/lwrnavbar_r3_c4 _f3.gif','/images/navbar/lwrnavbar_r3_c4
_f2.gif','/images/navbar/lwrnavbar_r3_c4 _f4.gif','/images/homepage/homep
agenavbar_r4_c7 _f3.gif','/images/homepage/homepagenavbar_ r4_c7_f2.gif','
/images/homepage/fairtrade_o.gif ','/Library/1')">
<div align="center">
<TABLE WIDTH="780" BORDER="0" CELLSPACING="0" CELLPADDING="0" >
<TR>
<TD VALIGN="TOP"> <div align="center">
<OBJECT RUNAT="server" PROGID="ADODB.C onnection" id="conn">
</OBJECT>
<!-- #BeginLibraryIt em "/Library/NavBar.lbi" -->
<script language="JavaS cript" type="text/JavaScript">
<!--
function MM_preloadImage s() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.leng th,a=MM_preload Images.argument s; for(i=0;
i<a.length; i++)
if (a[i].indexOf("#")!= 0){ d.MM_p[j]=new Image;
d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document;
if((p=n.indexOf ("?"))>0&&paren t.frames.length ) {
d=parent.frames[n.substring(p+1 )].document; n=n.substring(0 ,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.fo rms.length;i++)
x=d.forms[i][n];
for(i=0;!x&&d.l ayers&&i<d.laye rs.length;i++)
x=MM_findObj(n, d.layers[i].document);
if(!x && d.getElementByI d) x=d.getElementB yId(n); return x;
}

function MM_nbGroup(even t, grpName) { //v6.0
var i,img,nbArr,arg s=MM_nbGroup.ar guments;
if (event == "init" && args.length > 2) {
if ((img = MM_findObj(args[2])) != null && !img.MM_init) {
img.MM_init = true; img.MM_up = args[3]; img.MM_dn = img.src;
if ((nbArr = document[grpName]) == null) nbArr = document[grpName]
= new Array();
nbArr[nbArr.length] = img;
for (i=4; i < args.length-1; i+=2) if ((img = MM_findObj(args[i]))
!= null) {
if (!img.MM_up) img.MM_up = img.src;
img.src = img.MM_dn = args[i+1];
nbArr[nbArr.length] = img;
} }
} else if (event == "over") {
document.MM_nbO ver = nbArr = new Array();
for (i=1; i < args.length-1; i+=3) if ((img = MM_findObj(args[i]))
!= null) {
if (!img.MM_up) img.MM_up = img.src;
img.src = (img.MM_dn && args[i+2]) ? args[i+2] : ((args[i+1])?
args[i+1] : img.MM_up);
nbArr[nbArr.length] = img;
}
} else if (event == "out" ) {
for (i=0; i < document.MM_nbO ver.length; i++) {
img = document.MM_nbO ver[i]; img.src = (img.MM_dn) ? img.MM_dn :
img.MM_up; }
} else if (event == "down") {
nbArr = document[grpName];
if (nbArr)
for (i=0; i < nbArr.length; i++) { img=nbArr[i]; img.src =
img.MM_up; img.MM_dn = 0; }
document[grpName] = nbArr = new Array();
for (i=2; i < args.length-1; i+=2) if ((img = MM_findObj(args[i]))
!= null) {
if (!img.MM_up) img.MM_up = img.src;
img.src = img.MM_dn = (args[i+1])? args[i+1] : img.MM_up;
nbArr[nbArr.length] = img;
} }
}
//-->
</script>
<body
onLoad="MM_prel oadImages('../images/navbar/lwrnavbar_r1_c2 _f3.gif','../i
mages/navbar/lwrnavbar_r1_c2 _f2.gif','../images/navbar/lwrnavbar_r1_c2 _f
4.gif','../images/navbar/lwrnavbar_r1_c4 _f3.gif','../images/navbar/lwrna
vbar_r1_c4_f2.g if','../images/navbar/lwrnavbar_r1_c4 _f4.gif','../images/
navbar/lwrnavbar_r1_c6 _f3.gif','../images/navbar/lwrnavbar_r1_c6 _f2.gif'
,'../images/navbar/lwrnavbar_r1_c6 _f4.gif','../images/navbar/lwrnavbar_r
2_c1_f3.gif','. ./images/navbar/lwrnavbar_r2_c1 _f2.gif','../images/navbar
/lwrnavbar_r2_c1 _f4.gif','../images/navbar/lwrnavbar_r2_c3 _f3.gif','../i
mages/navbar/lwrnavbar_r2_c3 _f2.gif','../images/navbar/lwrnavbar_r2_c3 _f
4.gif','../images/navbar/lwrnavbar_r2_c5 _f3.gif','../images/navbar/lwrna
vbar_r2_c5_f2.g if','../images/navbar/lwrnavbar_r2_c5 _f4.gif','../images/
navbar/lwrnavbar_r3_c2 _f3.gif','../images/navbar/lwrnavbar_r3_c2 _f2.gif'
,'../images/navbar/lwrnavbar_r3_c2 _f4.gif','../images/navbar/lwrnavbar_r
3_c4_f3.gif','. ./images/navbar/lwrnavbar_r3_c4 _f2.gif','../images/navbar
/lwrnavbar_r3_c4 _f4.gif','../images/homepage/homepagenavbar_ r4_c7_f3.gif
','../images/homepage/homepagenavbar_ r4_c7_f2.gif','/images/homepage/fai
rtrade_o.gif')" >
<table border="0" cellpadding="0" cellspacing="0" width="648">
<!-- fwtable fwsrc="lwrnavba r.png" fwbase="lwrnavb ar.gif"
fwstyle="Dreamw eaver" fwdocid = "742308039" fwnested="0" -->
<tr>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="108" height="1" border="0"></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="108" height="1" border="0"></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="108" height="1" border="0"></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="108" height="1" border="0"></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="108" height="1" border="0"></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="108" height="1" border="0"></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="1" height="1" border="0"></td>
</tr>
<tr>
<td><img name="lwrnavbar _r1_c1"
src="/images/navbar/lwrnavbar_r1_c1 .gif" width="108" height="16"
border="0" alt=""></td>
<td><a href="/programs/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r1_c2','/images/navbar/l
wrnavbar_r1_c2_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r1_ c2','/images/navbar/lwrnavb
ar_r1_c2_f2.gif ','/images/navbar/lwrnavbar_r1_c2 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r1_c2"
src="/images/navbar/lwrnavbar_r1_c2 .gif" width="108" height="16"
border="0" alt="LWR Programs"></a></td>
<td><img name="lwrnavbar _r1_c3"
src="/images/navbar/lwrnavbar_r1_c3 .gif" width="108" height="16"
border="0" alt=""></td>
<td><a href="/about/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r1_c4','/images/navbar/l
wrnavbar_r1_c4_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r1_ c4','/images/navbar/lwrnavb
ar_r1_c4_f2.gif ','/images/navbar/lwrnavbar_r1_c4 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r1_c4"
src="/images/navbar/lwrnavbar_r1_c4 .gif" width="108" height="16"
border="0" alt="About LWR"></a></td>
<td><img name="lwrnavbar _r1_c5"
src="/images/navbar/lwrnavbar_r1_c5 .gif" width="108" height="16"
border="0" alt=""></td>
<td><a href="/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r1_c6','/images/navbar/l
wrnavbar_r1_c6_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r1_ c6','/images/navbar/lwrnavb
ar_r1_c6_f2.gif ','/images/navbar/lwrnavbar_r1_c6 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r1_c6"
src="/images/navbar/lwrnavbar_r1_c6 .gif" width="108" height="16"
border="0" alt="LWR Home"></a></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="1" height="16" border="0"></td>
</tr>
<tr>
<td><a href="/emergencies/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r2_c1','/images/navbar/l
wrnavbar_r2_c1_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r2_ c1','/images/navbar/lwrnavb
ar_r2_c1_f2.gif ','/images/navbar/lwrnavbar_r2_c1 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r2_c1"
src="/images/navbar/lwrnavbar_r2_c1 .gif" width="108" height="16"
border="0" alt=""></a></td>
<td><img name="lwrnavbar _r2_c2"
src="/images/navbar/lwrnavbar_r2_c2 .gif" width="108" height="16"
border="0" alt=""></td>
<td><a href="/giving/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r2_c3','/images/navbar/l
wrnavbar_r2_c3_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r2_ c3','/images/navbar/lwrnavb
ar_r2_c3_f2.gif ','/images/navbar/lwrnavbar_r2_c3 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r2_c3"
src="/images/navbar/lwrnavbar_r2_c3 .gif" width="108" height="16"
border="0" alt="Contribute to LWR"></a></td>
<td><img name="lwrnavbar _r2_c4"
src="/images/navbar/lwrnavbar_r2_c4 .gif" width="108" height="16"
border="0" alt=""></td>
<td><a href="/contact.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r2_c5','/images/navbar/l
wrnavbar_r2_c5_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r2_ c5','/images/navbar/lwrnavb
ar_r2_c5_f2.gif ','/images/navbar/lwrnavbar_r2_c5 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r2_c5"
src="/images/navbar/lwrnavbar_r2_c5 .gif" width="108" height="16"
border="0" alt="Contact LWR"></a></td>
<td rowspan="2" valign="top"><i mg name="lwrnavbar _r2_c6"
src="/images/navbar/lwrnavbar_r2_c6 .gif" width="108" height="16"
border="0" alt=""><br>
</td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="1" height="16" border="0"></td>
</tr>
<tr>
<td><img name="lwrnavbar _r3_c1"
src="/images/navbar/lwrnavbar_r3_c1 .gif" width="108" height="16"
border="0" alt=""></td>
<td><a href="/news/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r3_c2','/images/navbar/l
wrnavbar_r3_c2_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r3_ c2','/images/navbar/lwrnavb
ar_r3_c2_f2.gif ','/images/navbar/lwrnavbar_r3_c2 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r3_c2"
src="/images/navbar/lwrnavbar_r3_c2 .gif" width="108" height="16"
border="0" alt="News from LWR"></a></td>
<td><img name="lwrnavbar _r3_c3"
src="/images/navbar/lwrnavbar_r3_c3 .gif" width="108" height="16"
border="0" alt=""></td>
<td><a href="/parish/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r3_c4','/images/navbar/l
wrnavbar_r3_c4_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r3_ c4','/images/navbar/lwrnavb
ar_r3_c4_f2.gif ','/images/navbar/lwrnavbar_r3_c4 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r3_c4"
src="/images/navbar/lwrnavbar_r3_c4 .gif" width="108" height="16"
border="0" alt=""></a></td>
<td><img name="lwrnavbar _r3_c5"
src="/images/navbar/lwrnavbar_r3_c5 .gif" width="108" height="16"
border="0" alt=""></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="1" height="16" border="0"></td>
</tr>
</table>
<table width="648" height="101" border="0" cellpadding="0"
cellspacing="0" >
<tr>
<td width="216" rowspan="3"><a href="/index.html"><im g
src="/images/lwrlogo.gif" border="0" align="top"></a></td>
<td width="109" height="16"><di v align="left"><a
href="/advocacy/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','homepag enavbar_r4_c7', '/images/hom
epage/homepagenavbar_ r4_c7_f3.gif',1 )"
onMouseOver="MM _nbGroup('over' ,'homepagenavba r_r4_c7','/images/homepage/
homepagenavbar_ r4_c7_f2.gif','/images/homepage/homepagenavbar_ r4_c7_f3.g
if',1)" onMouseOut="MM_ nbGroup('out'); " ><img
src="/images/homepage/homepagenavbar_ r4_c7.gif" alt="Advocacy"
name="homepagen avbar_r4_c7" width="108" height="16"
border="0"></a></div></td>
<td width="215"><di v align="right">< img
src="/images/buttons/SerButBl.gif" width="47" height="15"
align="texttop" ></div></td>
<td width="108" rowspan="2"><fo rm name="form1" method="get"
action="http://search.atomz.co m/search/">
<input size=11 name="sp-q">
<input name="imageFiel d" type="image"
src="/images/buttons/GoButBlu.gif" align="right" width="32" height="15"
border="0">
<input type=hidden name="sp-a" value="sp100189 84">
<input type=hidden name="sp-p" value="any">
<input type=hidden name="sp-f" value="iso-8859-1">
</form></td>
</tr>
<tr>
<td height="32">&nb sp;</td>
<td height="32" valign="top"><a href="/fairtrade/index.html"
target="_top"
onClick="MM_nbG roup('down','na vbar1','fairtra denav','/images/homepage/fa
irtrade_o.gif', 1)"
onMouseOver="MM _nbGroup('over' ,'fairtradenav' ,'/images/homepage/fairtrad
e_o.gif','/Library/1',1)" onMouseOut="MM_ nbGroup('out'); " ><img
src="/images/homepage/fairtrade_nav.g if" alt="Fair Trade"
name="fairtrade nav" width="108" height="16" border="0"></a></td>
</tr>
<tr>
<td height="46" colspan="3">&nb sp;</td>
</tr>
</table>
<!-- #EndLibraryItem --> </div>
<div align="center">
<p><strong><fon t color="#660066" size="2" face="Arial">Th is
e-mail will
be sent to:</font></strong><br>
<font size="2" face="Arial, Helvetica, sans-serif"><%=
Request.Form("t oname") %> <font size="1">( <%= Request.Form("t oemail")
%> )</font></font></p>
</div> <div align="center">
<table width="500" border="0" cellspacing="0" cellpadding="0" >
<tr align="center" valign="top">
<td width="250">
<form name="send" method="POST" action="<%=MM_e ditAction%>">
<p>
<input type="submit" name="Submit2" value="Send This
Greeting">
<input name="greetingI D" type="hidden"
id="greetingID2 " value="<%= Request.Form("g reetingID") %>">
<input name="fromemail " type="hidden"
id="fromemail2 " value="<%= Request.Form("f romemail") %>">
<input name="fromname" type="hidden" id="fromname2"
value="<%= Request.Form("f romname") %>">
<input name="toemail" type="hidden" id="toemail2"
value="<%= Request.Form("t oemail") %>">
<input name="toname" type="hidden" id="toname2"
value="<%= Request.Form("t oname") %>">
<input name="message" type="hidden" id="message2"
value="<%= strmessage %>">
<br>
<input name="layout" type="hidden" id="layout2"
value="<%= Request.Form("l ayout") %>">
<input name="fontcolor " type="hidden"
id="fontcolor2 " value="<%= Request.Form("f ontcolor") %>">
<input name="fontsize" type="hidden" id="fontsize2"
value="<%= Request.Form("f ontsize") %>">
<input name="fontface" type="hidden" id="fontface2"
value="<%= Request.Form("f ontface") %>">
<input type="hidden" name="MM_insert " value="send">
<% '%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%% %>
<input name="MessageID " type="hidden" id="MessageID"
value="<%= strIDFinal %>">
<% '%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%% %>
</p>
<p> </p>
</form>
<% '%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%% %>
<%= strIDFinal %>
<% '%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%% %>
</td>
<td><% dim strgreetingID
strgreetingID = request.form("g reetingID")
%><form action="/greetings/compose_card.as p?greetingID=<% =
Request.Form("g reetingID") %>" method="post" name="changes"
id="changes">
<input type="submit" name="Submit3" value="Make More
Changes">
<input name="greetingI D" type="hidden" id="greetingID "
value="<%= Request.Form("g reetingID") %>">
<input name="fromemail " type="hidden" id="fromemail"
value="<%= Request.Form("f romemail") %>">
<input name="fromname" type="hidden" id="fromname"
value="<%= Request.Form("f romname") %>">
<input name="toemail" type="hidden" id="toemail"
value="<%= Request.Form("t oemail") %>">
<input name="toname" type="hidden" id="toname"
value="<%= Request.Form("t oname") %>">
<input name="message" type="hidden" id="message"
value="<%= Request.Form("m essage") %>">
<br>
<input name="layout" type="hidden" id="layout"
value="<%= Request.Form("l ayout") %>">
<input name="fontcolor " type="hidden" id="fontcolor"
value="<%= Request.Form("f ontcolor") %>">
<input name="fontsize" type="hidden" id="fontsize"
value="<%= Request.Form("f ontsize") %>">
<input name="fontface" type="hidden" id="fontface"
value="<%= Request.Form("f ontface") %>">

</form>
</td>
</tr>
</table>
<p><strong><fon t color="#660066" size="2" face="Arial">
</font></strong></p>
<% dim strLayout ' DETERMINE WHICH LAYOUT TO PREVIEW
strLayout = REQUEST.FORM("l ayout")
%><%'response.w rite strLayout %>
<% if strLayout = "card_c.asp " then %>
<table width="700" border="1" cellspacing="3" cellpadding="3" >
<tr>
<td bgcolor="#FFFFF F"><font size="2" face="Arial,
Helvetica, sans-serif">Title:
<%=(greetings.F ields.Item("car dtitle").Value) %><br>
Designed by</font>: <font size="2" face="Arial,
Helvetica,
sans-serif"><%=(gree tings.Fields.It em("author").Va lue)%></font><br>
<hr> <div align="center">
<p><br><font face="<%= Request.Form("f ontface") %>" color="<%=
Request.Form("f ontcolor") %>" size="<%= Request.Form("f ontsize")
%>"><strong>
To: <%= Request.Form("t oname") %></p>
<p>
<object
classid="clsid: D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macrom edia.com/pub/shockwave/cabs/flash/swflas
h.cab#version=6 ,0,29,0" width="400" height="300">
<param name="movie"
value="<%=(gree tings.Fields.It em("path").Valu e)%><%=(greetin gs.Fields.It
em("filename"). Value)%>">
<param name="quality" value="high">
<embed
src="<%=(greeti ngs.Fields.Item ("path").Value) %><%=(greetings .Fields.Item
("filename").Va lue)%>" quality="high"
pluginspage="ht tp://www.macromedia. com/go/getflashplayer"
type="applicati on/x-shockwave-flash" width="400" height="300"></embed>
</object>
</p>
<table width="400" border="0" cellspacing="0"
cellpadding="0" >
<tr>
<td><div align="left"><f ont color="<%=
Request.Form("f ontcolor") %>" size="<%= Request.Form("f ontsize") %>"
face="<%= Request.Form("f ontface") %>"><%= strmessage %><br>
<br>
- <%= Request.Form("f romname") %></font></div></td>
</tr>
</table>
<p>&nbsp;</p>
</div></td>
</tr>
</table>

<p>
<% END if %>
</p>
<p>

<%'response.wri te strLayout %>
<% if strLayout = "card_l.asp " then %>
</p>
<table width="700" border="1" cellspacing="3" cellpadding="3" >
<tr>
<td valign="top" bgcolor="#FFFFF F"><font size="2"
face="Arial, Helvetica, sans-serif">Title:
<%=(greetings.F ields.Item("tit le").Value)%><b r>
Designed by</font>: <font size="2" face="Arial,
Helvetica,
sans-serif"><%=(gree tings.Fields.It em("author").Va lue)%></font><br>
<hr>
<div align="center">
<table width="700" border="0" cellspacing="3" cellpadding="3" >
<tr valign="top">
<td width="400"><fo nt color="<%=
Request.Form("f ontcolor") %>" size="<%= Request.Form("f ontsize") %>"
face="<%= Request.Form("f ontface") %>"><strong>
<object
classid="clsid: D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macrom edia.com/pub/shockwave/cabs/flash/swflas
h.cab#version=6 ,0,29,0" width="400" height="300">
<param name="movie"
value="<%=(gree tings.Fields.It em("path").Valu e)%><%=(greetin gs.Fields.It
em("filename"). Value)%>">
<param name="quality" value="high">
<embed
src="<%=(greeti ngs.Fields.Item ("path").Value) %><%=(greetings .Fields.Item
("filename").Va lue)%>" quality="high"
pluginspage="ht tp://www.macromedia. com/go/getflashplayer"
type="applicati on/x-shockwave-flash" width="400"
height="300"></embed></object>
</strong></font></td>
<td><font face="<%= Request.Form("f ontface") %>"
color="<%= Request.Form("f ontcolor") %>" size="<%=
Request.Form("f ontsize") %>"><strong>To :
<%= Request.Form("t oname")
%></strong></font><font color="<%= Request.Form("f ontcolor") %>"
size="<%= Request.Form("f ontsize") %>" face="<%=
Request.Form("f ontface") %>"><strong><br >
<br>
<%= strmessage %><br>
<br>
- <%= Request.Form("f romname")
%></strong></font></td>
</tr>
</table>

</div></td>
</tr>
</table>
<p>
<% END if %>
</p>
<p>
<%'response.wri te strLayout %>
<% if strLayout = "card_r.asp " then %>
</p>
<table width="700" border="1" cellspacing="3" cellpadding="3" >
<tr>
<td valign="top" bgcolor="#FFFFF F"><font size="2"
face="Arial, Helvetica, sans-serif">Title:
<%=(greetings.F ields.Item("tit le").Value)%><b r>
Designed by</font>: <font size="2" face="Arial,
Helvetica,
sans-serif"><%=(gree tings.Fields.It em("author").Va lue)%></font><br>
<hr>
<div align="center">
<table width="700" border="0" cellspacing="3" cellpadding="3" >
<tr valign="top">
<td width="263"><fo nt face="<%=
Request.Form("f ontface") %>" color="<%= Request.Form("f ontcolor") %>"
size="<%= Request.Form("f ontsize") %>"><strong>To :
<%= Request.Form("t oname")
%></strong></font><strong><f ont color="<%= Request.Form("f ontcolor") %>"
size="<%= Request.Form("f ontsize") %>" face="<%=
Request.Form("f ontface") %>"><br>
</font></strong><font color="<%=
Request.Form("f ontcolor") %>" size="<%= Request.Form("f ontsize") %>"
face="<%= Request.Form("f ontface") %>"><strong><br >
<%= strmessage %><br>
<br>
- <%= Request.Form("f romname")
%></strong></font></td>
<td width="400"><fo nt color="<%=
Request.Form("f ontcolor") %>" size="<%= Request.Form("f ontsize") %>"
face="<%= Request.Form("f ontface") %>"><strong>
<object
classid="clsid: D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macrom edia.com/pub/shockwave/cabs/flash/swflas
h.cab#version=6 ,0,29,0" width="400" height="300">
<param name="movie"
value="<%=(gree tings.Fields.It em("path").Valu e)%><%=(greetin gs.Fields.It
em("filename"). Value)%>">
<param name="quality" value="high">
<embed
src="<%=(greeti ngs.Fields.Item ("path").Value) %><%=(greetings .Fields.Item
("filename").Va lue)%>" quality="high"
pluginspage="ht tp://www.macromedia. com/go/getflashplayer"
type="applicati on/x-shockwave-flash" width="400"
height="300"></embed></object>
</strong></font></td>
</tr>
</table>

</div></td>
</tr>
</table>
<% END if %>
<!-- #BeginLibraryIt em "/Library/bottom.lbi" -->
<table width="648" border="0" cellspacing="0" cellpadding="0" >
<tr>
<td height="48"><p align="center"> <font size="1"
face="Verdana, Arial, Helvetica, sans-serif"><br>
<a href="/tellafriend.asp ">Tell A Friend About
This Page &gt;&gt;</a> </font></p>
<p align="center"> <font size="1" face="Verdana, Arial,
Helvetica, sans-serif">| <a href="/index.html">LWR Home</a> | <a
href="/advocacy/index.html">Adv ocacy</a> | <a
href="/fairtrade/index.html">Fai r Trade</a> | <a
href="/emergencies/index.html">Eme rgencies</a> | <a
href="/news/index.html">New s</a> | <a href="/parish/index.html">Be
Involved</a> | <a href="/programs/index.html">Pro grams</a> | <a
href="/giving/index.html">Con tribute</a> |<br>
| <a href="/about/index.html">Abo ut Us</a> | <a
href="/contact.html">C ontact</a> | <a href="/search.html">Se arch</a> |
<a href="/sitemap.html">S ite Map</a> | <a href="/privacy.html">P rivacy
Policy</a> | </font></p>
<p align="center"> <font size="1" face="Verdana, Arial,
Helvetica, sans-serif"><strong> Lutheran World Relief</strong> | 700
Light Street | Baltimore, Maryland 21230 | 800-LWR-LWR-2 | <a
href="mailto:lw *@lwr.org">lw*@ lwr.org</a></font></p>
<p align="center"> <font size="1" face="Verdana, Arial,
Helvetica, sans-serif">Copyrigh t &copy; 1997-2004 Lutheran World
Relief.<br>
This page was last modified on:
<!-- #BeginDate format:Am1 -->February 2, 2004<!-- #EndDate
-->
</font></p></td>
</tr>
</table>
<!-- #EndLibraryItem --></div></TD>
</TR>
</TABLE>
</div>
</BODY>
</HTML>
<%
greetings.Close ()
Set greetings = Nothing
%>


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[BigDaddyWeaver]

<<<<Why are you assigning strIDFinal to itself?>>>>

I was just trying to kill the genGUID. Have since altered. Still
updates ID every time strIDFinal is used.
<<<< How are you determining that the values are different? >>>>

I am writing strIDFinal to page:
<%= strIDFinal %>

<<<< Are you generating a new id on the page being posted to or are you
getting
the value from the hidden field? It would help if you showed your code.

I want to generate one ID. I want to insert it into the database as the
primary key for the record. I want to pass that same variable to the
next page in the url string. The problem is that the value that I write
to the page and the value that gets passed in the url are different.

Here is the entire code. It is lengthy. I will comment key areas with
'%%%%%%%%%%%%%% %%%%%%%%%%%%


<%@LANGUAGE="VB SCRIPT"%>
<!--#include file="../Connections/egreetings.asp" -->
<% dim strMessage
strmessage= Replace(Request ("message"), vbCrLf, "<BR>") %>
<% '%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%
'GENERATE UNIQUE ID
Function genguid()
Dim Guid
guid = server.createob ject("scriptlet .typelib").guid
guid=Left(guid, instr(guid,"}") )
genguid=guid
genguid= replace(guid, "}", "") ' strip out } from generated ID
genguid= replace(genguid , "{", "") ' strip out { from generated ID
genguid= replace(genguid , "-", "") ' strip out - from generated ID
genguid= replace(genguid , "'", "") ' strip out ' from generated ID
Set guid=nothing
end function
%>
<% Dim strIDFinal

strIDFinal = genguid

'%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%
%>
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnecti on
Dim MM_editTable
Dim MM_editRedirect Url
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.Se rverVariables(" SCRIPT_NAME"))
If (Request.QueryS tring <> "") Then
MM_editAction = MM_editAction & "?" & Request.QuerySt ring
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request(" MM_insert")) = "send") Then

MM_editConnecti on = MM_egreetings_S TRING
MM_editTable = "messages"
'%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%
MM_editRedirect Url = "/greetings/mail_greeting_c .asp?messageID= " &
strIDFinal & ""
'%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%
MM_fieldsStr =
"greetingID|val ue|fromemail|va lue|fromname|va lue|toemail|val ue|toname|va
lue|message|val ue|layout|value |fontcolor|valu e|fontsize|valu e|fontface|v
alue|MessageID| value"
MM_columnsStr =
"greetingID|non e,none,NULL|fro memail|',none,' '|fromname|',no ne,''|toemai
l|',none,''|ton ame|',none,''|m essage|',none,' '|layout|',none ,''|fontcolo
r|',none,''|fon tsize|none,none ,NULL|fontface| ',none,''|messa geID|',none,
''"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fields Str, "|")
MM_columns = Split(MM_column sStr, "|")

' set the form values
For MM_i = LBound(MM_field s) To UBound(MM_field s) Step 2
MM_fields(MM_i+ 1) = CStr(Request.Fo rm(MM_fields(MM _i)))
Next

' append the query string to the redirect URL
If (MM_editRedirec tUrl <> "" And Request.QuerySt ring <> "") Then
If (InStr(1, MM_editRedirect Url, "?", vbTextCompare) = 0 And
Request.QuerySt ring <> "") Then
MM_editRedirect Url = MM_editRedirect Url & "?" &
Request.QuerySt ring
Else
MM_editRedirect Url = MM_editRedirect Url & "&" &
Request.QuerySt ring
End If
End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request(" MM_insert")) <> "") Then

' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_field s) To UBound(MM_field s) Step 2
MM_formVal = MM_fields(MM_i+ 1)
MM_typeArray = Split(MM_column s(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_form Val,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_field s)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i )
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues &
") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateOb ject("ADODB.Com mand")
MM_editCmd.Acti veConnection = MM_editConnecti on
MM_editCmd.Comm andText = MM_editQuery
MM_editCmd.Exec ute
MM_editCmd.Acti veConnection.Cl ose

If (MM_editRedirec tUrl <> "") Then
Response.Redire ct(MM_editRedir ectUrl)
End If
End If

End If
%>
<%
Dim greetings__MMCo lParam
greetings__MMCo lParam = "1"
If (Request.querys tring("greeting ID") <> "") Then
greetings__MMCo lParam = Request.queryst ring("greetingI D")
End If
%>
<%
Dim greetings
Dim greetings_numRo ws

Set greetings = Server.CreateOb ject("ADODB.Rec ordset")
greetings.Activ eConnection = MM_egreetings_S TRING
greetings.Sourc e = "SELECT * FROM cards, categories WHERE
cards.greetingI D = " + Replace(greetin gs__MMColParam, "'", "''") + " AND
cards.categoryI D = categories.cate goryID"
greetings.Curso rType = 0
greetings.Curso rLocation = 2
greetings.LockT ype = 1
greetings.Open( )

greetings_numRo ws = 0
%>

<HTML>
<HEAD>
<META NAME="GENERATOR " CONTENT="Micros oft FrontPage 4.0">
<TITLE>Previe w Your e-Greeting at lwr.org</TITLE>

</HEAD>
<BODY BGCOLOR="ffffff " LINK="#660066" ALINK="#660066"
onLoad="MM_prel oadImages('/images/navbar/lwrnavbar_r1_c2 _f3.gif','/image
s/navbar/lwrnavbar_r1_c2 _f2.gif','/images/navbar/lwrnavbar_r1_c2 _f4.gif'
,'/images/navbar/lwrnavbar_r1_c4 _f3.gif','/images/navbar/lwrnavbar_r1_c4
_f2.gif','/images/navbar/lwrnavbar_r1_c4 _f4.gif','/images/navbar/lwrnavb
ar_r1_c6_f3.gif ','/images/navbar/lwrnavbar_r1_c6 _f2.gif','/images/navbar
/lwrnavbar_r1_c6 _f4.gif','/images/navbar/lwrnavbar_r2_c1 _f3.gif','/image
s/navbar/lwrnavbar_r2_c1 _f2.gif','/images/navbar/lwrnavbar_r2_c1 _f4.gif'
,'/images/navbar/lwrnavbar_r2_c3 _f3.gif','/images/navbar/lwrnavbar_r2_c3
_f2.gif','/images/navbar/lwrnavbar_r2_c3 _f4.gif','/images/navbar/lwrnavb
ar_r2_c5_f3.gif ','/images/navbar/lwrnavbar_r2_c5 _f2.gif','/images/navbar
/lwrnavbar_r2_c5 _f4.gif','/images/navbar/lwrnavbar_r3_c2 _f3.gif','/image
s/navbar/lwrnavbar_r3_c2 _f2.gif','/images/navbar/lwrnavbar_r3_c2 _f4.gif'
,'/images/navbar/lwrnavbar_r3_c4 _f3.gif','/images/navbar/lwrnavbar_r3_c4
_f2.gif','/images/navbar/lwrnavbar_r3_c4 _f4.gif','/images/homepage/homep
agenavbar_r4_c7 _f3.gif','/images/homepage/homepagenavbar_ r4_c7_f2.gif','
/images/homepage/fairtrade_o.gif ','/Library/1')">
<div align="center">
<TABLE WIDTH="780" BORDER="0" CELLSPACING="0" CELLPADDING="0" >
<TR>
<TD VALIGN="TOP"> <div align="center">
<OBJECT RUNAT="server" PROGID="ADODB.C onnection" id="conn">
</OBJECT>
<!-- #BeginLibraryIt em "/Library/NavBar.lbi" -->
<script language="JavaS cript" type="text/JavaScript">
<!--
function MM_preloadImage s() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.leng th,a=MM_preload Images.argument s; for(i=0;
i<a.length; i++)
if (a[i].indexOf("#")!= 0){ d.MM_p[j]=new Image;
d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document;
if((p=n.indexOf ("?"))>0&&paren t.frames.length ) {
d=parent.frames[n.substring(p+1 )].document; n=n.substring(0 ,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.fo rms.length;i++)
x=d.forms[i][n];
for(i=0;!x&&d.l ayers&&i<d.laye rs.length;i++)
x=MM_findObj(n, d.layers[i].document);
if(!x && d.getElementByI d) x=d.getElementB yId(n); return x;
}

function MM_nbGroup(even t, grpName) { //v6.0
var i,img,nbArr,arg s=MM_nbGroup.ar guments;
if (event == "init" && args.length > 2) {
if ((img = MM_findObj(args[2])) != null && !img.MM_init) {
img.MM_init = true; img.MM_up = args[3]; img.MM_dn = img.src;
if ((nbArr = document[grpName]) == null) nbArr = document[grpName]
= new Array();
nbArr[nbArr.length] = img;
for (i=4; i < args.length-1; i+=2) if ((img = MM_findObj(args[i]))
!= null) {
if (!img.MM_up) img.MM_up = img.src;
img.src = img.MM_dn = args[i+1];
nbArr[nbArr.length] = img;
} }
} else if (event == "over") {
document.MM_nbO ver = nbArr = new Array();
for (i=1; i < args.length-1; i+=3) if ((img = MM_findObj(args[i]))
!= null) {
if (!img.MM_up) img.MM_up = img.src;
img.src = (img.MM_dn && args[i+2]) ? args[i+2] : ((args[i+1])?
args[i+1] : img.MM_up);
nbArr[nbArr.length] = img;
}
} else if (event == "out" ) {
for (i=0; i < document.MM_nbO ver.length; i++) {
img = document.MM_nbO ver[i]; img.src = (img.MM_dn) ? img.MM_dn :
img.MM_up; }
} else if (event == "down") {
nbArr = document[grpName];
if (nbArr)
for (i=0; i < nbArr.length; i++) { img=nbArr[i]; img.src =
img.MM_up; img.MM_dn = 0; }
document[grpName] = nbArr = new Array();
for (i=2; i < args.length-1; i+=2) if ((img = MM_findObj(args[i]))
!= null) {
if (!img.MM_up) img.MM_up = img.src;
img.src = img.MM_dn = (args[i+1])? args[i+1] : img.MM_up;
nbArr[nbArr.length] = img;
} }
}
//-->
</script>
<body
onLoad="MM_prel oadImages('../images/navbar/lwrnavbar_r1_c2 _f3.gif','../i
mages/navbar/lwrnavbar_r1_c2 _f2.gif','../images/navbar/lwrnavbar_r1_c2 _f
4.gif','../images/navbar/lwrnavbar_r1_c4 _f3.gif','../images/navbar/lwrna
vbar_r1_c4_f2.g if','../images/navbar/lwrnavbar_r1_c4 _f4.gif','../images/
navbar/lwrnavbar_r1_c6 _f3.gif','../images/navbar/lwrnavbar_r1_c6 _f2.gif'
,'../images/navbar/lwrnavbar_r1_c6 _f4.gif','../images/navbar/lwrnavbar_r
2_c1_f3.gif','. ./images/navbar/lwrnavbar_r2_c1 _f2.gif','../images/navbar
/lwrnavbar_r2_c1 _f4.gif','../images/navbar/lwrnavbar_r2_c3 _f3.gif','../i
mages/navbar/lwrnavbar_r2_c3 _f2.gif','../images/navbar/lwrnavbar_r2_c3 _f
4.gif','../images/navbar/lwrnavbar_r2_c5 _f3.gif','../images/navbar/lwrna
vbar_r2_c5_f2.g if','../images/navbar/lwrnavbar_r2_c5 _f4.gif','../images/
navbar/lwrnavbar_r3_c2 _f3.gif','../images/navbar/lwrnavbar_r3_c2 _f2.gif'
,'../images/navbar/lwrnavbar_r3_c2 _f4.gif','../images/navbar/lwrnavbar_r
3_c4_f3.gif','. ./images/navbar/lwrnavbar_r3_c4 _f2.gif','../images/navbar
/lwrnavbar_r3_c4 _f4.gif','../images/homepage/homepagenavbar_ r4_c7_f3.gif
','../images/homepage/homepagenavbar_ r4_c7_f2.gif','/images/homepage/fai
rtrade_o.gif')" >
<table border="0" cellpadding="0" cellspacing="0" width="648">
<!-- fwtable fwsrc="lwrnavba r.png" fwbase="lwrnavb ar.gif"
fwstyle="Dreamw eaver" fwdocid = "742308039" fwnested="0" -->
<tr>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="108" height="1" border="0"></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="108" height="1" border="0"></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="108" height="1" border="0"></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="108" height="1" border="0"></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="108" height="1" border="0"></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="108" height="1" border="0"></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="1" height="1" border="0"></td>
</tr>
<tr>
<td><img name="lwrnavbar _r1_c1"
src="/images/navbar/lwrnavbar_r1_c1 .gif" width="108" height="16"
border="0" alt=""></td>
<td><a href="/programs/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r1_c2','/images/navbar/l
wrnavbar_r1_c2_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r1_ c2','/images/navbar/lwrnavb
ar_r1_c2_f2.gif ','/images/navbar/lwrnavbar_r1_c2 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r1_c2"
src="/images/navbar/lwrnavbar_r1_c2 .gif" width="108" height="16"
border="0" alt="LWR Programs"></a></td>
<td><img name="lwrnavbar _r1_c3"
src="/images/navbar/lwrnavbar_r1_c3 .gif" width="108" height="16"
border="0" alt=""></td>
<td><a href="/about/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r1_c4','/images/navbar/l
wrnavbar_r1_c4_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r1_ c4','/images/navbar/lwrnavb
ar_r1_c4_f2.gif ','/images/navbar/lwrnavbar_r1_c4 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r1_c4"
src="/images/navbar/lwrnavbar_r1_c4 .gif" width="108" height="16"
border="0" alt="About LWR"></a></td>
<td><img name="lwrnavbar _r1_c5"
src="/images/navbar/lwrnavbar_r1_c5 .gif" width="108" height="16"
border="0" alt=""></td>
<td><a href="/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r1_c6','/images/navbar/l
wrnavbar_r1_c6_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r1_ c6','/images/navbar/lwrnavb
ar_r1_c6_f2.gif ','/images/navbar/lwrnavbar_r1_c6 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r1_c6"
src="/images/navbar/lwrnavbar_r1_c6 .gif" width="108" height="16"
border="0" alt="LWR Home"></a></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="1" height="16" border="0"></td>
</tr>
<tr>
<td><a href="/emergencies/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r2_c1','/images/navbar/l
wrnavbar_r2_c1_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r2_ c1','/images/navbar/lwrnavb
ar_r2_c1_f2.gif ','/images/navbar/lwrnavbar_r2_c1 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r2_c1"
src="/images/navbar/lwrnavbar_r2_c1 .gif" width="108" height="16"
border="0" alt=""></a></td>
<td><img name="lwrnavbar _r2_c2"
src="/images/navbar/lwrnavbar_r2_c2 .gif" width="108" height="16"
border="0" alt=""></td>
<td><a href="/giving/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r2_c3','/images/navbar/l
wrnavbar_r2_c3_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r2_ c3','/images/navbar/lwrnavb
ar_r2_c3_f2.gif ','/images/navbar/lwrnavbar_r2_c3 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r2_c3"
src="/images/navbar/lwrnavbar_r2_c3 .gif" width="108" height="16"
border="0" alt="Contribute to LWR"></a></td>
<td><img name="lwrnavbar _r2_c4"
src="/images/navbar/lwrnavbar_r2_c4 .gif" width="108" height="16"
border="0" alt=""></td>
<td><a href="/contact.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r2_c5','/images/navbar/l
wrnavbar_r2_c5_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r2_ c5','/images/navbar/lwrnavb
ar_r2_c5_f2.gif ','/images/navbar/lwrnavbar_r2_c5 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r2_c5"
src="/images/navbar/lwrnavbar_r2_c5 .gif" width="108" height="16"
border="0" alt="Contact LWR"></a></td>
<td rowspan="2" valign="top"><i mg name="lwrnavbar _r2_c6"
src="/images/navbar/lwrnavbar_r2_c6 .gif" width="108" height="16"
border="0" alt=""><br>
</td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="1" height="16" border="0"></td>
</tr>
<tr>
<td><img name="lwrnavbar _r3_c1"
src="/images/navbar/lwrnavbar_r3_c1 .gif" width="108" height="16"
border="0" alt=""></td>
<td><a href="/news/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r3_c2','/images/navbar/l
wrnavbar_r3_c2_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r3_ c2','/images/navbar/lwrnavb
ar_r3_c2_f2.gif ','/images/navbar/lwrnavbar_r3_c2 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r3_c2"
src="/images/navbar/lwrnavbar_r3_c2 .gif" width="108" height="16"
border="0" alt="News from LWR"></a></td>
<td><img name="lwrnavbar _r3_c3"
src="/images/navbar/lwrnavbar_r3_c3 .gif" width="108" height="16"
border="0" alt=""></td>
<td><a href="/parish/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r3_c4','/images/navbar/l
wrnavbar_r3_c4_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r3_ c4','/images/navbar/lwrnavb
ar_r3_c4_f2.gif ','/images/navbar/lwrnavbar_r3_c4 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r3_c4"
src="/images/navbar/lwrnavbar_r3_c4 .gif" width="108" height="16"
border="0" alt=""></a></td>
<td><img name="lwrnavbar _r3_c5"
src="/images/navbar/lwrnavbar_r3_c5 .gif" width="108" height="16"
border="0" alt=""></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="1" height="16" border="0"></td>
</tr>
</table>
<table width="648" height="101" border="0" cellpadding="0"
cellspacing="0" >
<tr>
<td width="216" rowspan="3"><a href="/index.html"><im g
src="/images/lwrlogo.gif" border="0" align="top"></a></td>
<td width="109" height="16"><di v align="left"><a
href="/advocacy/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','homepag enavbar_r4_c7', '/images/hom
epage/homepagenavbar_ r4_c7_f3.gif',1 )"
onMouseOver="MM _nbGroup('over' ,'homepagenavba r_r4_c7','/images/homepage/
homepagenavbar_ r4_c7_f2.gif','/images/homepage/homepagenavbar_ r4_c7_f3.g
if',1)" onMouseOut="MM_ nbGroup('out'); " ><img
src="/images/homepage/homepagenavbar_ r4_c7.gif" alt="Advocacy"
name="homepagen avbar_r4_c7" width="108" height="16"
border="0"></a></div></td>
<td width="215"><di v align="right">< img
src="/images/buttons/SerButBl.gif" width="47" height="15"
align="texttop" ></div></td>
<td width="108" rowspan="2"><fo rm name="form1" method="get"
action="http://search.atomz.co m/search/">
<input size=11 name="sp-q">
<input name="imageFiel d" type="image"
src="/images/buttons/GoButBlu.gif" align="right" width="32" height="15"
border="0">
<input type=hidden name="sp-a" value="sp100189 84">
<input type=hidden name="sp-p" value="any">
<input type=hidden name="sp-f" value="iso-8859-1">
</form></td>
</tr>
<tr>
<td height="32">&nb sp;</td>
<td height="32" valign="top"><a href="/fairtrade/index.html"
target="_top"
onClick="MM_nbG roup('down','na vbar1','fairtra denav','/images/homepage/fa
irtrade_o.gif', 1)"
onMouseOver="MM _nbGroup('over' ,'fairtradenav' ,'/images/homepage/fairtrad
e_o.gif','/Library/1',1)" onMouseOut="MM_ nbGroup('out'); " ><img
src="/images/homepage/fairtrade_nav.g if" alt="Fair Trade"
name="fairtrade nav" width="108" height="16" border="0"></a></td>
</tr>
<tr>
<td height="46" colspan="3">&nb sp;</td>
</tr>
</table>
<!-- #EndLibraryItem --> </div>
<div align="center">
<p><strong><fon t color="#660066" size="2" face="Arial">Th is
e-mail will
be sent to:</font></strong><br>
<font size="2" face="Arial, Helvetica, sans-serif"><%=
Request.Form("t oname") %> <font size="1">( <%= Request.Form("t oemail")
%> )</font></font></p>
</div> <div align="center">
<table width="500" border="0" cellspacing="0" cellpadding="0" >
<tr align="center" valign="top">
<td width="250">
<form name="send" method="POST" action="<%=MM_e ditAction%>">
<p>
<input type="submit" name="Submit2" value="Send This
Greeting">
<input name="greetingI D" type="hidden"
id="greetingID2 " value="<%= Request.Form("g reetingID") %>">
<input name="fromemail " type="hidden"
id="fromemail2 " value="<%= Request.Form("f romemail") %>">
<input name="fromname" type="hidden" id="fromname2"
value="<%= Request.Form("f romname") %>">
<input name="toemail" type="hidden" id="toemail2"
value="<%= Request.Form("t oemail") %>">
<input name="toname" type="hidden" id="toname2"
value="<%= Request.Form("t oname") %>">
<input name="message" type="hidden" id="message2"
value="<%= strmessage %>">
<br>
<input name="layout" type="hidden" id="layout2"
value="<%= Request.Form("l ayout") %>">
<input name="fontcolor " type="hidden"
id="fontcolor2 " value="<%= Request.Form("f ontcolor") %>">
<input name="fontsize" type="hidden" id="fontsize2"
value="<%= Request.Form("f ontsize") %>">
<input name="fontface" type="hidden" id="fontface2"
value="<%= Request.Form("f ontface") %>">
<input type="hidden" name="MM_insert " value="send">
<% '%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%% %>
<input name="MessageID " type="hidden" id="MessageID"
value="<%= strIDFinal %>">
<% '%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%% %>
</p>
<p> </p>
</form>
<% '%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%% %>
<%= strIDFinal %>
<% '%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%% %>
</td>
<td><% dim strgreetingID
strgreetingID = request.form("g reetingID")
%><form action="/greetings/compose_card.as p?greetingID=<% =
Request.Form("g reetingID") %>" method="post" name="changes"
id="changes">
<input type="submit" name="Submit3" value="Make More
Changes">
<input name="greetingI D" type="hidden" id="greetingID "
value="<%= Request.Form("g reetingID") %>">
<input name="fromemail " type="hidden" id="fromemail"
value="<%= Request.Form("f romemail") %>">
<input name="fromname" type="hidden" id="fromname"
value="<%= Request.Form("f romname") %>">
<input name="toemail" type="hidden" id="toemail"
value="<%= Request.Form("t oemail") %>">
<input name="toname" type="hidden" id="toname"
value="<%= Request.Form("t oname") %>">
<input name="message" type="hidden" id="message"
value="<%= Request.Form("m essage") %>">
<br>
<input name="layout" type="hidden" id="layout"
value="<%= Request.Form("l ayout") %>">
<input name="fontcolor " type="hidden" id="fontcolor"
value="<%= Request.Form("f ontcolor") %>">
<input name="fontsize" type="hidden" id="fontsize"
value="<%= Request.Form("f ontsize") %>">
<input name="fontface" type="hidden" id="fontface"
value="<%= Request.Form("f ontface") %>">

</form>
</td>
</tr>
</table>
<p><strong><fon t color="#660066" size="2" face="Arial">
</font></strong></p>
<% dim strLayout ' DETERMINE WHICH LAYOUT TO PREVIEW
strLayout = REQUEST.FORM("l ayout")
%><%'response.w rite strLayout %>
<% if strLayout = "card_c.asp " then %>
<table width="700" border="1" cellspacing="3" cellpadding="3" >
<tr>
<td bgcolor="#FFFFF F"><font size="2" face="Arial,
Helvetica, sans-serif">Title:
<%=(greetings.F ields.Item("car dtitle").Value) %><br>
Designed by</font>: <font size="2" face="Arial,
Helvetica,
sans-serif"><%=(gree tings.Fields.It em("author").Va lue)%></font><br>
<hr> <div align="center">
<p><br><font face="<%= Request.Form("f ontface") %>" color="<%=
Request.Form("f ontcolor") %>" size="<%= Request.Form("f ontsize")
%>"><strong>
To: <%= Request.Form("t oname") %></p>
<p>
<object
classid="clsid: D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macrom edia.com/pub/shockwave/cabs/flash/swflas
h.cab#version=6 ,0,29,0" width="400" height="300">
<param name="movie"
value="<%=(gree tings.Fields.It em("path").Valu e)%><%=(greetin gs.Fields.It
em("filename"). Value)%>">
<param name="quality" value="high">
<embed
src="<%=(greeti ngs.Fields.Item ("path").Value) %><%=(greetings .Fields.Item
("filename").Va lue)%>" quality="high"
pluginspage="ht tp://www.macromedia. com/go/getflashplayer"
type="applicati on/x-shockwave-flash" width="400" height="300"></embed>
</object>
</p>
<table width="400" border="0" cellspacing="0"
cellpadding="0" >
<tr>
<td><div align="left"><f ont color="<%=
Request.Form("f ontcolor") %>" size="<%= Request.Form("f ontsize") %>"
face="<%= Request.Form("f ontface") %>"><%= strmessage %><br>
<br>
- <%= Request.Form("f romname") %></font></div></td>
</tr>
</table>
<p>&nbsp;</p>
</div></td>
</tr>
</table>

<p>
<% END if %>
</p>
<p>

<%'response.wri te strLayout %>
<% if strLayout = "card_l.asp " then %>
</p>
<table width="700" border="1" cellspacing="3" cellpadding="3" >
<tr>
<td valign="top" bgcolor="#FFFFF F"><font size="2"
face="Arial, Helvetica, sans-serif">Title:
<%=(greetings.F ields.Item("tit le").Value)%><b r>
Designed by</font>: <font size="2" face="Arial,
Helvetica,
sans-serif"><%=(gree tings.Fields.It em("author").Va lue)%></font><br>
<hr>
<div align="center">
<table width="700" border="0" cellspacing="3" cellpadding="3" >
<tr valign="top">
<td width="400"><fo nt color="<%=
Request.Form("f ontcolor") %>" size="<%= Request.Form("f ontsize") %>"
face="<%= Request.Form("f ontface") %>"><strong>
<object
classid="clsid: D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macrom edia.com/pub/shockwave/cabs/flash/swflas
h.cab#version=6 ,0,29,0" width="400" height="300">
<param name="movie"
value="<%=(gree tings.Fields.It em("path").Valu e)%><%=(greetin gs.Fields.It
em("filename"). Value)%>">
<param name="quality" value="high">
<embed
src="<%=(greeti ngs.Fields.Item ("path").Value) %><%=(greetings .Fields.Item
("filename").Va lue)%>" quality="high"
pluginspage="ht tp://www.macromedia. com/go/getflashplayer"
type="applicati on/x-shockwave-flash" width="400"
height="300"></embed></object>
</strong></font></td>
<td><font face="<%= Request.Form("f ontface") %>"
color="<%= Request.Form("f ontcolor") %>" size="<%=
Request.Form("f ontsize") %>"><strong>To :
<%= Request.Form("t oname")
%></strong></font><font color="<%= Request.Form("f ontcolor") %>"
size="<%= Request.Form("f ontsize") %>" face="<%=
Request.Form("f ontface") %>"><strong><br >
<br>
<%= strmessage %><br>
<br>
- <%= Request.Form("f romname")
%></strong></font></td>
</tr>
</table>

</div></td>
</tr>
</table>
<p>
<% END if %>
</p>
<p>
<%'response.wri te strLayout %>
<% if strLayout = "card_r.asp " then %>
</p>
<table width="700" border="1" cellspacing="3" cellpadding="3" >
<tr>
<td valign="top" bgcolor="#FFFFF F"><font size="2"
face="Arial, Helvetica, sans-serif">Title:
<%=(greetings.F ields.Item("tit le").Value)%><b r>
Designed by</font>: <font size="2" face="Arial,
Helvetica,
sans-serif"><%=(gree tings.Fields.It em("author").Va lue)%></font><br>
<hr>
<div align="center">
<table width="700" border="0" cellspacing="3" cellpadding="3" >
<tr valign="top">
<td width="263"><fo nt face="<%=
Request.Form("f ontface") %>" color="<%= Request.Form("f ontcolor") %>"
size="<%= Request.Form("f ontsize") %>"><strong>To :
<%= Request.Form("t oname")
%></strong></font><strong><f ont color="<%= Request.Form("f ontcolor") %>"
size="<%= Request.Form("f ontsize") %>" face="<%=
Request.Form("f ontface") %>"><br>
</font></strong><font color="<%=
Request.Form("f ontcolor") %>" size="<%= Request.Form("f ontsize") %>"
face="<%= Request.Form("f ontface") %>"><strong><br >
<%= strmessage %><br>
<br>
- <%= Request.Form("f romname")
%></strong></font></td>
<td width="400"><fo nt color="<%=
Request.Form("f ontcolor") %>" size="<%= Request.Form("f ontsize") %>"
face="<%= Request.Form("f ontface") %>"><strong>
<object
classid="clsid: D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macrom edia.com/pub/shockwave/cabs/flash/swflas
h.cab#version=6 ,0,29,0" width="400" height="300">
<param name="movie"
value="<%=(gree tings.Fields.It em("path").Valu e)%><%=(greetin gs.Fields.It
em("filename"). Value)%>">
<param name="quality" value="high">
<embed
src="<%=(greeti ngs.Fields.Item ("path").Value) %><%=(greetings .Fields.Item
("filename").Va lue)%>" quality="high"
pluginspage="ht tp://www.macromedia. com/go/getflashplayer"
type="applicati on/x-shockwave-flash" width="400"
height="300"></embed></object>
</strong></font></td>
</tr>
</table>

</div></td>
</tr>
</table>
<% END if %>
<!-- #BeginLibraryIt em "/Library/bottom.lbi" -->
<table width="648" border="0" cellspacing="0" cellpadding="0" >
<tr>
<td height="48"><p align="center"> <font size="1"
face="Verdana, Arial, Helvetica, sans-serif"><br>
<a href="/tellafriend.asp ">Tell A Friend About
This Page &gt;&gt;</a> </font></p>
<p align="center"> <font size="1" face="Verdana, Arial,
Helvetica, sans-serif">| <a href="/index.html">LWR Home</a> | <a
href="/advocacy/index.html">Adv ocacy</a> | <a
href="/fairtrade/index.html">Fai r Trade</a> | <a
href="/emergencies/index.html">Eme rgencies</a> | <a
href="/news/index.html">New s</a> | <a href="/parish/index.html">Be
Involved</a> | <a href="/programs/index.html">Pro grams</a> | <a
href="/giving/index.html">Con tribute</a> |<br>
| <a href="/about/index.html">Abo ut Us</a> | <a
href="/contact.html">C ontact</a> | <a href="/search.html">Se arch</a> |
<a href="/sitemap.html">S ite Map</a> | <a href="/privacy.html">P rivacy
Policy</a> | </font></p>
<p align="center"> <font size="1" face="Verdana, Arial,
Helvetica, sans-serif"><strong> Lutheran World Relief</strong> | 700
Light Street | Baltimore, Maryland 21230 | 800-LWR-LWR-2 | <a
href="mailto:lw *@lwr.org">lw*@ lwr.org</a></font></p>
<p align="center"> <font size="1" face="Verdana, Arial,
Helvetica, sans-serif">Copyrigh t &copy; 1997-2004 Lutheran World
Relief.<br>
This page was last modified on:
<!-- #BeginDate format:Am1 -->February 2, 2004<!-- #EndDate
-->
</font></p></td>
</tr>
</table>
<!-- #EndLibraryItem --></div></TD>
</TR>
</TABLE>
</div>
</BODY>
</HTML>
<%
greetings.Close ()
Set greetings = Nothing
%>


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Mark Schupp]

I put your code into a page and chopped enough out that it would run.

I get the same id in all locations. I don't know what is going on but you
might try adding parens to the genguid call so that the runtime knows you
want to assign the function value to the variable and not the function
itself (never seen this with VBScript but in JScript you can assign a
function to a variable).

strIDFinal = genguid()

--
Mark Schupp
Head of Development
Integrity eLearning
www.ielearning.com
"BigDaddyWeaver " <an*******@devd ex.com> wrote in message
news:u%******** ********@tk2msf tngp13.phx.gbl. ..

<<<<Why are you assigning strIDFinal to itself?>>>>

I was just trying to kill the genGUID. Have since altered. Still
updates ID every time strIDFinal is used.
<<<< How are you determining that the values are different? >>>>

I am writing strIDFinal to page:
<%= strIDFinal %>

<<<< Are you generating a new id on the page being posted to or are you
getting
the value from the hidden field? It would help if you showed your code.

>

I want to generate one ID. I want to insert it into the database as the
primary key for the record. I want to pass that same variable to the
next page in the url string. The problem is that the value that I write
to the page and the value that gets passed in the url are different.

Here is the entire code. It is lengthy. I will comment key areas with
'%%%%%%%%%%%%%% %%%%%%%%%%%%


<%@LANGUAGE="VB SCRIPT"%>
<!--#include file="../Connections/egreetings.asp" -->
<% dim strMessage
strmessage= Replace(Request ("message"), vbCrLf, "<BR>") %>
<% '%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%
'GENERATE UNIQUE ID
Function genguid()
Dim Guid
guid = server.createob ject("scriptlet .typelib").guid
guid=Left(guid, instr(guid,"}") )
genguid=guid
genguid= replace(guid, "}", "") ' strip out } from generated ID
genguid= replace(genguid , "{", "") ' strip out { from generated ID
genguid= replace(genguid , "-", "") ' strip out - from generated ID
genguid= replace(genguid , "'", "") ' strip out ' from generated ID
Set guid=nothing
end function
%>
<% Dim strIDFinal

strIDFinal = genguid

'%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%
%>
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnecti on
Dim MM_editTable
Dim MM_editRedirect Url
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.Se rverVariables(" SCRIPT_NAME"))
If (Request.QueryS tring <> "") Then
MM_editAction = MM_editAction & "?" & Request.QuerySt ring
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request(" MM_insert")) = "send") Then

MM_editConnecti on = MM_egreetings_S TRING
MM_editTable = "messages"
'%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%
MM_editRedirect Url = "/greetings/mail_greeting_c .asp?messageID= " &
strIDFinal & ""
'%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%
MM_fieldsStr =
"greetingID|val ue|fromemail|va lue|fromname|va lue|toemail|val ue|toname|va
lue|message|val ue|layout|value |fontcolor|valu e|fontsize|valu e|fontface|v
alue|MessageID| value"
MM_columnsStr =
"greetingID|non e,none,NULL|fro memail|',none,' '|fromname|',no ne,''|toemai
l|',none,''|ton ame|',none,''|m essage|',none,' '|layout|',none ,''|fontcolo
r|',none,''|fon tsize|none,none ,NULL|fontface| ',none,''|messa geID|',none,
''"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fields Str, "|")
MM_columns = Split(MM_column sStr, "|")

' set the form values
For MM_i = LBound(MM_field s) To UBound(MM_field s) Step 2
MM_fields(MM_i+ 1) = CStr(Request.Fo rm(MM_fields(MM _i)))
Next

' append the query string to the redirect URL
If (MM_editRedirec tUrl <> "" And Request.QuerySt ring <> "") Then
If (InStr(1, MM_editRedirect Url, "?", vbTextCompare) = 0 And
Request.QuerySt ring <> "") Then
MM_editRedirect Url = MM_editRedirect Url & "?" &
Request.QuerySt ring
Else
MM_editRedirect Url = MM_editRedirect Url & "&" &
Request.QuerySt ring
End If
End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request(" MM_insert")) <> "") Then

' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_field s) To UBound(MM_field s) Step 2
MM_formVal = MM_fields(MM_i+ 1)
MM_typeArray = Split(MM_column s(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_form Val,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_field s)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i )
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues &
") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateOb ject("ADODB.Com mand")
MM_editCmd.Acti veConnection = MM_editConnecti on
MM_editCmd.Comm andText = MM_editQuery
MM_editCmd.Exec ute
MM_editCmd.Acti veConnection.Cl ose

If (MM_editRedirec tUrl <> "") Then
Response.Redire ct(MM_editRedir ectUrl)
End If
End If

End If
%>
<%
Dim greetings__MMCo lParam
greetings__MMCo lParam = "1"
If (Request.querys tring("greeting ID") <> "") Then
greetings__MMCo lParam = Request.queryst ring("greetingI D")
End If
%>
<%
Dim greetings
Dim greetings_numRo ws

Set greetings = Server.CreateOb ject("ADODB.Rec ordset")
greetings.Activ eConnection = MM_egreetings_S TRING
greetings.Sourc e = "SELECT * FROM cards, categories WHERE
cards.greetingI D = " + Replace(greetin gs__MMColParam, "'", "''") + " AND
cards.categoryI D = categories.cate goryID"
greetings.Curso rType = 0
greetings.Curso rLocation = 2
greetings.LockT ype = 1
greetings.Open( )

greetings_numRo ws = 0
%>

<HTML>
<HEAD>
<META NAME="GENERATOR " CONTENT="Micros oft FrontPage 4.0">
<TITLE>Previe w Your e-Greeting at lwr.org</TITLE>

</HEAD>
<BODY BGCOLOR="ffffff " LINK="#660066" ALINK="#660066"
onLoad="MM_prel oadImages('/images/navbar/lwrnavbar_r1_c2 _f3.gif','/image
s/navbar/lwrnavbar_r1_c2 _f2.gif','/images/navbar/lwrnavbar_r1_c2 _f4.gif'
,'/images/navbar/lwrnavbar_r1_c4 _f3.gif','/images/navbar/lwrnavbar_r1_c4
_f2.gif','/images/navbar/lwrnavbar_r1_c4 _f4.gif','/images/navbar/lwrnavb
ar_r1_c6_f3.gif ','/images/navbar/lwrnavbar_r1_c6 _f2.gif','/images/navbar
/lwrnavbar_r1_c6 _f4.gif','/images/navbar/lwrnavbar_r2_c1 _f3.gif','/image
s/navbar/lwrnavbar_r2_c1 _f2.gif','/images/navbar/lwrnavbar_r2_c1 _f4.gif'
,'/images/navbar/lwrnavbar_r2_c3 _f3.gif','/images/navbar/lwrnavbar_r2_c3
_f2.gif','/images/navbar/lwrnavbar_r2_c3 _f4.gif','/images/navbar/lwrnavb
ar_r2_c5_f3.gif ','/images/navbar/lwrnavbar_r2_c5 _f2.gif','/images/navbar
/lwrnavbar_r2_c5 _f4.gif','/images/navbar/lwrnavbar_r3_c2 _f3.gif','/image
s/navbar/lwrnavbar_r3_c2 _f2.gif','/images/navbar/lwrnavbar_r3_c2 _f4.gif'
,'/images/navbar/lwrnavbar_r3_c4 _f3.gif','/images/navbar/lwrnavbar_r3_c4
_f2.gif','/images/navbar/lwrnavbar_r3_c4 _f4.gif','/images/homepage/homep
agenavbar_r4_c7 _f3.gif','/images/homepage/homepagenavbar_ r4_c7_f2.gif','
/images/homepage/fairtrade_o.gif ','/Library/1')">
<div align="center">
<TABLE WIDTH="780" BORDER="0" CELLSPACING="0" CELLPADDING="0" >
<TR>
<TD VALIGN="TOP"> <div align="center">
<OBJECT RUNAT="server" PROGID="ADODB.C onnection" id="conn">
</OBJECT>
<!-- #BeginLibraryIt em "/Library/NavBar.lbi" -->
<script language="JavaS cript" type="text/JavaScript">
<!--
function MM_preloadImage s() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.leng th,a=MM_preload Images.argument s; for(i=0;
i<a.length; i++)
if (a[i].indexOf("#")!= 0){ d.MM_p[j]=new Image;
d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document;
if((p=n.indexOf ("?"))>0&&paren t.frames.length ) {
d=parent.frames[n.substring(p+1 )].document; n=n.substring(0 ,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.fo rms.length;i++)
x=d.forms[i][n];
for(i=0;!x&&d.l ayers&&i<d.laye rs.length;i++)
x=MM_findObj(n, d.layers[i].document);
if(!x && d.getElementByI d) x=d.getElementB yId(n); return x;
}

function MM_nbGroup(even t, grpName) { //v6.0
var i,img,nbArr,arg s=MM_nbGroup.ar guments;
if (event == "init" && args.length > 2) {
if ((img = MM_findObj(args[2])) != null && !img.MM_init) {
img.MM_init = true; img.MM_up = args[3]; img.MM_dn = img.src;
if ((nbArr = document[grpName]) == null) nbArr = document[grpName]
= new Array();
nbArr[nbArr.length] = img;
for (i=4; i < args.length-1; i+=2) if ((img = MM_findObj(args[i]))
!= null) {
if (!img.MM_up) img.MM_up = img.src;
img.src = img.MM_dn = args[i+1];
nbArr[nbArr.length] = img;
} }
} else if (event == "over") {
document.MM_nbO ver = nbArr = new Array();
for (i=1; i < args.length-1; i+=3) if ((img = MM_findObj(args[i]))
!= null) {
if (!img.MM_up) img.MM_up = img.src;
img.src = (img.MM_dn && args[i+2]) ? args[i+2] : ((args[i+1])?
args[i+1] : img.MM_up);
nbArr[nbArr.length] = img;
}
} else if (event == "out" ) {
for (i=0; i < document.MM_nbO ver.length; i++) {
img = document.MM_nbO ver[i]; img.src = (img.MM_dn) ? img.MM_dn :
img.MM_up; }
} else if (event == "down") {
nbArr = document[grpName];
if (nbArr)
for (i=0; i < nbArr.length; i++) { img=nbArr[i]; img.src =
img.MM_up; img.MM_dn = 0; }
document[grpName] = nbArr = new Array();
for (i=2; i < args.length-1; i+=2) if ((img = MM_findObj(args[i]))
!= null) {
if (!img.MM_up) img.MM_up = img.src;
img.src = img.MM_dn = (args[i+1])? args[i+1] : img.MM_up;
nbArr[nbArr.length] = img;
} }
}
//-->
</script>
<body
onLoad="MM_prel oadImages('../images/navbar/lwrnavbar_r1_c2 _f3.gif','../i
mages/navbar/lwrnavbar_r1_c2 _f2.gif','../images/navbar/lwrnavbar_r1_c2 _f
4.gif','../images/navbar/lwrnavbar_r1_c4 _f3.gif','../images/navbar/lwrna
vbar_r1_c4_f2.g if','../images/navbar/lwrnavbar_r1_c4 _f4.gif','../images/
navbar/lwrnavbar_r1_c6 _f3.gif','../images/navbar/lwrnavbar_r1_c6 _f2.gif'
,'../images/navbar/lwrnavbar_r1_c6 _f4.gif','../images/navbar/lwrnavbar_r
2_c1_f3.gif','. ./images/navbar/lwrnavbar_r2_c1 _f2.gif','../images/navbar
/lwrnavbar_r2_c1 _f4.gif','../images/navbar/lwrnavbar_r2_c3 _f3.gif','../i
mages/navbar/lwrnavbar_r2_c3 _f2.gif','../images/navbar/lwrnavbar_r2_c3 _f
4.gif','../images/navbar/lwrnavbar_r2_c5 _f3.gif','../images/navbar/lwrna
vbar_r2_c5_f2.g if','../images/navbar/lwrnavbar_r2_c5 _f4.gif','../images/
navbar/lwrnavbar_r3_c2 _f3.gif','../images/navbar/lwrnavbar_r3_c2 _f2.gif'
,'../images/navbar/lwrnavbar_r3_c2 _f4.gif','../images/navbar/lwrnavbar_r
3_c4_f3.gif','. ./images/navbar/lwrnavbar_r3_c4 _f2.gif','../images/navbar
/lwrnavbar_r3_c4 _f4.gif','../images/homepage/homepagenavbar_ r4_c7_f3.gif
','../images/homepage/homepagenavbar_ r4_c7_f2.gif','/images/homepage/fai
rtrade_o.gif')" >
<table border="0" cellpadding="0" cellspacing="0" width="648">
<!-- fwtable fwsrc="lwrnavba r.png" fwbase="lwrnavb ar.gif"
fwstyle="Dreamw eaver" fwdocid = "742308039" fwnested="0" -->
<tr>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="108" height="1" border="0"></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="108" height="1" border="0"></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="108" height="1" border="0"></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="108" height="1" border="0"></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="108" height="1" border="0"></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="108" height="1" border="0"></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="1" height="1" border="0"></td>
</tr>
<tr>
<td><img name="lwrnavbar _r1_c1"
src="/images/navbar/lwrnavbar_r1_c1 .gif" width="108" height="16"
border="0" alt=""></td>
<td><a href="/programs/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r1_c2','/images/navbar/l
wrnavbar_r1_c2_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r1_ c2','/images/navbar/lwrnavb
ar_r1_c2_f2.gif ','/images/navbar/lwrnavbar_r1_c2 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r1_c2"
src="/images/navbar/lwrnavbar_r1_c2 .gif" width="108" height="16"
border="0" alt="LWR Programs"></a></td>
<td><img name="lwrnavbar _r1_c3"
src="/images/navbar/lwrnavbar_r1_c3 .gif" width="108" height="16"
border="0" alt=""></td>
<td><a href="/about/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r1_c4','/images/navbar/l
wrnavbar_r1_c4_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r1_ c4','/images/navbar/lwrnavb
ar_r1_c4_f2.gif ','/images/navbar/lwrnavbar_r1_c4 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r1_c4"
src="/images/navbar/lwrnavbar_r1_c4 .gif" width="108" height="16"
border="0" alt="About LWR"></a></td>
<td><img name="lwrnavbar _r1_c5"
src="/images/navbar/lwrnavbar_r1_c5 .gif" width="108" height="16"
border="0" alt=""></td>
<td><a href="/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r1_c6','/images/navbar/l
wrnavbar_r1_c6_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r1_ c6','/images/navbar/lwrnavb
ar_r1_c6_f2.gif ','/images/navbar/lwrnavbar_r1_c6 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r1_c6"
src="/images/navbar/lwrnavbar_r1_c6 .gif" width="108" height="16"
border="0" alt="LWR Home"></a></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="1" height="16" border="0"></td>
</tr>
<tr>
<td><a href="/emergencies/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r2_c1','/images/navbar/l
wrnavbar_r2_c1_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r2_ c1','/images/navbar/lwrnavb
ar_r2_c1_f2.gif ','/images/navbar/lwrnavbar_r2_c1 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r2_c1"
src="/images/navbar/lwrnavbar_r2_c1 .gif" width="108" height="16"
border="0" alt=""></a></td>
<td><img name="lwrnavbar _r2_c2"
src="/images/navbar/lwrnavbar_r2_c2 .gif" width="108" height="16"
border="0" alt=""></td>
<td><a href="/giving/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r2_c3','/images/navbar/l
wrnavbar_r2_c3_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r2_ c3','/images/navbar/lwrnavb
ar_r2_c3_f2.gif ','/images/navbar/lwrnavbar_r2_c3 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r2_c3"
src="/images/navbar/lwrnavbar_r2_c3 .gif" width="108" height="16"
border="0" alt="Contribute to LWR"></a></td>
<td><img name="lwrnavbar _r2_c4"
src="/images/navbar/lwrnavbar_r2_c4 .gif" width="108" height="16"
border="0" alt=""></td>
<td><a href="/contact.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r2_c5','/images/navbar/l
wrnavbar_r2_c5_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r2_ c5','/images/navbar/lwrnavb
ar_r2_c5_f2.gif ','/images/navbar/lwrnavbar_r2_c5 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r2_c5"
src="/images/navbar/lwrnavbar_r2_c5 .gif" width="108" height="16"
border="0" alt="Contact LWR"></a></td>
<td rowspan="2" valign="top"><i mg name="lwrnavbar _r2_c6"
src="/images/navbar/lwrnavbar_r2_c6 .gif" width="108" height="16"
border="0" alt=""><br>
</td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="1" height="16" border="0"></td>
</tr>
<tr>
<td><img name="lwrnavbar _r3_c1"
src="/images/navbar/lwrnavbar_r3_c1 .gif" width="108" height="16"
border="0" alt=""></td>
<td><a href="/news/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r3_c2','/images/navbar/l
wrnavbar_r3_c2_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r3_ c2','/images/navbar/lwrnavb
ar_r3_c2_f2.gif ','/images/navbar/lwrnavbar_r3_c2 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r3_c2"
src="/images/navbar/lwrnavbar_r3_c2 .gif" width="108" height="16"
border="0" alt="News from LWR"></a></td>
<td><img name="lwrnavbar _r3_c3"
src="/images/navbar/lwrnavbar_r3_c3 .gif" width="108" height="16"
border="0" alt=""></td>
<td><a href="/parish/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','lwrnavb ar_r3_c4','/images/navbar/l
wrnavbar_r3_c4_ f3.gif',1)"
onMouseOver="MM _nbGroup('over' ,'lwrnavbar_r3_ c4','/images/navbar/lwrnavb
ar_r3_c4_f2.gif ','/images/navbar/lwrnavbar_r3_c4 _f4.gif',1)"
onMouseOut="MM_ nbGroup('out'); "><img name="lwrnavbar _r3_c4"
src="/images/navbar/lwrnavbar_r3_c4 .gif" width="108" height="16"
border="0" alt=""></a></td>
<td><img name="lwrnavbar _r3_c5"
src="/images/navbar/lwrnavbar_r3_c5 .gif" width="108" height="16"
border="0" alt=""></td>
<td><img src="/images/navbar/spacer.gif" alt=""
name="undefined _2" width="1" height="16" border="0"></td>
</tr>
</table>
<table width="648" height="101" border="0" cellpadding="0"
cellspacing="0" >
<tr>
<td width="216" rowspan="3"><a href="/index.html"><im g
src="/images/lwrlogo.gif" border="0" align="top"></a></td>
<td width="109" height="16"><di v align="left"><a
href="/advocacy/index.html" target="_top"
onClick="MM_nbG roup('down','na vbar1','homepag enavbar_r4_c7', '/images/hom
epage/homepagenavbar_ r4_c7_f3.gif',1 )"
onMouseOver="MM _nbGroup('over' ,'homepagenavba r_r4_c7','/images/homepage/
homepagenavbar_ r4_c7_f2.gif','/images/homepage/homepagenavbar_ r4_c7_f3.g
if',1)" onMouseOut="MM_ nbGroup('out'); " ><img
src="/images/homepage/homepagenavbar_ r4_c7.gif" alt="Advocacy"
name="homepagen avbar_r4_c7" width="108" height="16"
border="0"></a></div></td>
<td width="215"><di v align="right">< img
src="/images/buttons/SerButBl.gif" width="47" height="15"
align="texttop" ></div></td>
<td width="108" rowspan="2"><fo rm name="form1" method="get"
action="http://search.atomz.co m/search/">
<input size=11 name="sp-q">
<input name="imageFiel d" type="image"
src="/images/buttons/GoButBlu.gif" align="right" width="32" height="15"
border="0">
<input type=hidden name="sp-a" value="sp100189 84">
<input type=hidden name="sp-p" value="any">
<input type=hidden name="sp-f" value="iso-8859-1">
</form></td>
</tr>
<tr>
<td height="32">&nb sp;</td>
<td height="32" valign="top"><a href="/fairtrade/index.html"
target="_top"
onClick="MM_nbG roup('down','na vbar1','fairtra denav','/images/homepage/fa
irtrade_o.gif', 1)"
onMouseOver="MM _nbGroup('over' ,'fairtradenav' ,'/images/homepage/fairtrad
e_o.gif','/Library/1',1)" onMouseOut="MM_ nbGroup('out'); " ><img
src="/images/homepage/fairtrade_nav.g if" alt="Fair Trade"
name="fairtrade nav" width="108" height="16" border="0"></a></td>
</tr>
<tr>
<td height="46" colspan="3">&nb sp;</td>
</tr>
</table>
<!-- #EndLibraryItem --> </div>
<div align="center">
<p><strong><fon t color="#660066" size="2" face="Arial">Th is
e-mail will
be sent to:</font></strong><br>
<font size="2" face="Arial, Helvetica, sans-serif"><%=
Request.Form("t oname") %> <font size="1">( <%= Request.Form("t oemail")
%> )</font></font></p>
</div> <div align="center">
<table width="500" border="0" cellspacing="0" cellpadding="0" >
<tr align="center" valign="top">
<td width="250">
<form name="send" method="POST" action="<%=MM_e ditAction%>">
<p>
<input type="submit" name="Submit2" value="Send This
Greeting">
<input name="greetingI D" type="hidden"
id="greetingID2 " value="<%= Request.Form("g reetingID") %>">
<input name="fromemail " type="hidden"
id="fromemail2 " value="<%= Request.Form("f romemail") %>">
<input name="fromname" type="hidden" id="fromname2"
value="<%= Request.Form("f romname") %>">
<input name="toemail" type="hidden" id="toemail2"
value="<%= Request.Form("t oemail") %>">
<input name="toname" type="hidden" id="toname2"
value="<%= Request.Form("t oname") %>">
<input name="message" type="hidden" id="message2"
value="<%= strmessage %>">
<br>
<input name="layout" type="hidden" id="layout2"
value="<%= Request.Form("l ayout") %>">
<input name="fontcolor " type="hidden"
id="fontcolor2 " value="<%= Request.Form("f ontcolor") %>">
<input name="fontsize" type="hidden" id="fontsize2"
value="<%= Request.Form("f ontsize") %>">
<input name="fontface" type="hidden" id="fontface2"
value="<%= Request.Form("f ontface") %>">
<input type="hidden" name="MM_insert " value="send">
<% '%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%% %>
<input name="MessageID " type="hidden" id="MessageID"
value="<%= strIDFinal %>">
<% '%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%% %>
</p>
<p> </p>
</form>
<% '%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%% %>
<%= strIDFinal %>
<% '%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%%%%%%%%% %%%%%%%% %>
</td>
<td><% dim strgreetingID
strgreetingID = request.form("g reetingID")
%><form action="/greetings/compose_card.as p?greetingID=<% =
Request.Form("g reetingID") %>" method="post" name="changes"
id="changes">
<input type="submit" name="Submit3" value="Make More
Changes">
<input name="greetingI D" type="hidden" id="greetingID "
value="<%= Request.Form("g reetingID") %>">
<input name="fromemail " type="hidden" id="fromemail"
value="<%= Request.Form("f romemail") %>">
<input name="fromname" type="hidden" id="fromname"
value="<%= Request.Form("f romname") %>">
<input name="toemail" type="hidden" id="toemail"
value="<%= Request.Form("t oemail") %>">
<input name="toname" type="hidden" id="toname"
value="<%= Request.Form("t oname") %>">
<input name="message" type="hidden" id="message"
value="<%= Request.Form("m essage") %>">
<br>
<input name="layout" type="hidden" id="layout"
value="<%= Request.Form("l ayout") %>">
<input name="fontcolor " type="hidden" id="fontcolor"
value="<%= Request.Form("f ontcolor") %>">
<input name="fontsize" type="hidden" id="fontsize"
value="<%= Request.Form("f ontsize") %>">
<input name="fontface" type="hidden" id="fontface"
value="<%= Request.Form("f ontface") %>">

</form>
</td>
</tr>
</table>
<p><strong><fon t color="#660066" size="2" face="Arial">
</font></strong></p>
<% dim strLayout ' DETERMINE WHICH LAYOUT TO PREVIEW
strLayout = REQUEST.FORM("l ayout")
%><%'response.w rite strLayout %>
<% if strLayout = "card_c.asp " then %>
<table width="700" border="1" cellspacing="3" cellpadding="3" >
<tr>
<td bgcolor="#FFFFF F"><font size="2" face="Arial,
Helvetica, sans-serif">Title:
<%=(greetings.F ields.Item("car dtitle").Value) %><br>
Designed by</font>: <font size="2" face="Arial,
Helvetica,
sans-serif"><%=(gree tings.Fields.It em("author").Va lue)%></font><br>
<hr> <div align="center">
<p><br><font face="<%= Request.Form("f ontface") %>" color="<%=
Request.Form("f ontcolor") %>" size="<%= Request.Form("f ontsize")
%>"><strong>
To: <%= Request.Form("t oname") %></p>
<p>
<object
classid="clsid: D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macrom edia.com/pub/shockwave/cabs/flash/swflas
h.cab#version=6 ,0,29,0" width="400" height="300">
<param name="movie"
value="<%=(gree tings.Fields.It em("path").Valu e)%><%=(greetin gs.Fields.It
em("filename"). Value)%>">
<param name="quality" value="high">
<embed
src="<%=(greeti ngs.Fields.Item ("path").Value) %><%=(greetings .Fields.Item
("filename").Va lue)%>" quality="high"
pluginspage="ht tp://www.macromedia. com/go/getflashplayer"
type="applicati on/x-shockwave-flash" width="400" height="300"></embed>
</object>
</p>
<table width="400" border="0" cellspacing="0"
cellpadding="0" >
<tr>
<td><div align="left"><f ont color="<%=
Request.Form("f ontcolor") %>" size="<%= Request.Form("f ontsize") %>"
face="<%= Request.Form("f ontface") %>"><%= strmessage %><br>
<br>
- <%= Request.Form("f romname") %></font></div></td>
</tr>
</table>
<p>&nbsp;</p>
</div></td>
</tr>
</table>

<p>
<% END if %>
</p>
<p>

<%'response.wri te strLayout %>
<% if strLayout = "card_l.asp " then %>
</p>
<table width="700" border="1" cellspacing="3" cellpadding="3" >
<tr>
<td valign="top" bgcolor="#FFFFF F"><font size="2"
face="Arial, Helvetica, sans-serif">Title:
<%=(greetings.F ields.Item("tit le").Value)%><b r>
Designed by</font>: <font size="2" face="Arial,
Helvetica,
sans-serif"><%=(gree tings.Fields.It em("author").Va lue)%></font><br>
<hr>
<div align="center">
<table width="700" border="0" cellspacing="3" cellpadding="3" >
<tr valign="top">
<td width="400"><fo nt color="<%=
Request.Form("f ontcolor") %>" size="<%= Request.Form("f ontsize") %>"
face="<%= Request.Form("f ontface") %>"><strong>
<object
classid="clsid: D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macrom edia.com/pub/shockwave/cabs/flash/swflas
h.cab#version=6 ,0,29,0" width="400" height="300">
<param name="movie"
value="<%=(gree tings.Fields.It em("path").Valu e)%><%=(greetin gs.Fields.It
em("filename"). Value)%>">
<param name="quality" value="high">
<embed
src="<%=(greeti ngs.Fields.Item ("path").Value) %><%=(greetings .Fields.Item
("filename").Va lue)%>" quality="high"
pluginspage="ht tp://www.macromedia. com/go/getflashplayer"
type="applicati on/x-shockwave-flash" width="400"
height="300"></embed></object>
</strong></font></td>
<td><font face="<%= Request.Form("f ontface") %>"
color="<%= Request.Form("f ontcolor") %>" size="<%=
Request.Form("f ontsize") %>"><strong>To :
<%= Request.Form("t oname")
%></strong></font><font color="<%= Request.Form("f ontcolor") %>"
size="<%= Request.Form("f ontsize") %>" face="<%=
Request.Form("f ontface") %>"><strong><br >
<br>
<%= strmessage %><br>
<br>
- <%= Request.Form("f romname")
%></strong></font></td>
</tr>
</table>

</div></td>
</tr>
</table>
<p>
<% END if %>
</p>
<p>
<%'response.wri te strLayout %>
<% if strLayout = "card_r.asp " then %>
</p>
<table width="700" border="1" cellspacing="3" cellpadding="3" >
<tr>
<td valign="top" bgcolor="#FFFFF F"><font size="2"
face="Arial, Helvetica, sans-serif">Title:
<%=(greetings.F ields.Item("tit le").Value)%><b r>
Designed by</font>: <font size="2" face="Arial,
Helvetica,
sans-serif"><%=(gree tings.Fields.It em("author").Va lue)%></font><br>
<hr>
<div align="center">
<table width="700" border="0" cellspacing="3" cellpadding="3" >
<tr valign="top">
<td width="263"><fo nt face="<%=
Request.Form("f ontface") %>" color="<%= Request.Form("f ontcolor") %>"
size="<%= Request.Form("f ontsize") %>"><strong>To :
<%= Request.Form("t oname")
%></strong></font><strong><f ont color="<%= Request.Form("f ontcolor") %>"
size="<%= Request.Form("f ontsize") %>" face="<%=
Request.Form("f ontface") %>"><br>
</font></strong><font color="<%=
Request.Form("f ontcolor") %>" size="<%= Request.Form("f ontsize") %>"
face="<%= Request.Form("f ontface") %>"><strong><br >
<%= strmessage %><br>
<br>
- <%= Request.Form("f romname")
%></strong></font></td>
<td width="400"><fo nt color="<%=
Request.Form("f ontcolor") %>" size="<%= Request.Form("f ontsize") %>"
face="<%= Request.Form("f ontface") %>"><strong>
<object
classid="clsid: D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macrom edia.com/pub/shockwave/cabs/flash/swflas
h.cab#version=6 ,0,29,0" width="400" height="300">
<param name="movie"
value="<%=(gree tings.Fields.It em("path").Valu e)%><%=(greetin gs.Fields.It
em("filename"). Value)%>">
<param name="quality" value="high">
<embed
src="<%=(greeti ngs.Fields.Item ("path").Value) %><%=(greetings .Fields.Item
("filename").Va lue)%>" quality="high"
pluginspage="ht tp://www.macromedia. com/go/getflashplayer"
type="applicati on/x-shockwave-flash" width="400"
height="300"></embed></object>
</strong></font></td>
</tr>
</table>

</div></td>
</tr>
</table>
<% END if %>
<!-- #BeginLibraryIt em "/Library/bottom.lbi" -->
<table width="648" border="0" cellspacing="0" cellpadding="0" >
<tr>
<td height="48"><p align="center"> <font size="1"
face="Verdana, Arial, Helvetica, sans-serif"><br>
<a href="/tellafriend.asp ">Tell A Friend About
This Page &gt;&gt;</a> </font></p>
<p align="center"> <font size="1" face="Verdana, Arial,
Helvetica, sans-serif">| <a href="/index.html">LWR Home</a> | <a
href="/advocacy/index.html">Adv ocacy</a> | <a
href="/fairtrade/index.html">Fai r Trade</a> | <a
href="/emergencies/index.html">Eme rgencies</a> | <a
href="/news/index.html">New s</a> | <a href="/parish/index.html">Be
Involved</a> | <a href="/programs/index.html">Pro grams</a> | <a
href="/giving/index.html">Con tribute</a> |<br>
| <a href="/about/index.html">Abo ut Us</a> | <a
href="/contact.html">C ontact</a> | <a href="/search.html">Se arch</a> |
<a href="/sitemap.html">S ite Map</a> | <a href="/privacy.html">P rivacy
Policy</a> | </font></p>
<p align="center"> <font size="1" face="Verdana, Arial,
Helvetica, sans-serif"><strong> Lutheran World Relief</strong> | 700
Light Street | Baltimore, Maryland 21230 | 800-LWR-LWR-2 | <a
href="mailto:lw *@lwr.org">lw*@ lwr.org</a></font></p>
<p align="center"> <font size="1" face="Verdana, Arial,
Helvetica, sans-serif">Copyrigh t &copy; 1997-2004 Lutheran World
Relief.<br>
This page was last modified on:
<!-- #BeginDate format:Am1 -->February 2, 2004<!-- #EndDate
-->
</font></p></td>
</tr>
</table>
<!-- #EndLibraryItem --></div></TD>
</TR>
</TABLE>
</div>
</BODY>
</HTML>
<%
greetings.Close ()
Set greetings = Nothing
%>


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[BigDaddyWeaver]

BigDaddyWeaverT hanks for the help. This is what ended up working for me
from your help and the help of another author.

<%
Dim xGUID
xGUID = ""
Call genguid(xGUID)

' Now it is in a local variable (xGUID) and can be used many times
Response.Write( xGUID) ' to test output
%>
<%
'GENERATE UNIQUE ID

Function genguid(xGUID)
Dim Guid
guid = server.createob ject("scriptlet .typelib").guid
guid=Left(guid, instr(guid,"}") )
xGUID=guid
Set guid=nothing

xGUID= replace(xGUID, "}", "")
xGUID= replace(xGUID, "{", "")
xGUID= replace(xGUID, "-", "")
xGUID= replace(xGUID, "'", "")
End function
%>
I defined my form variable as:
MessageID = <%= (xGUID) %>

My redirect url was:
MM_editRedirect Url = "/greetings/mail_greeting_c .asp?messageID= " &
CStr(Request.fo rm("MessageID") ) & ""
The problem was in the redirect URL.
If I tried:

MM_editRedirect Url = "/greetings/mail_greeting_c .asp?messageID= " &
(xGUID) & ""

My ID in the URL turned out to be different than my form variable.

Thanks for the help!!!!

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!