Snitz Forums 2000 - Modify pop

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Snitz Forums 2000 MOD-Group

MOD Add-On Forum (W/O Code)

Modify pop_preview.asp

New Topic

Topic Locked

Printer Friendly

Author

Topic

StephenD
Senior Member

Australia
1044 Posts

Posted - 16 May 2005 : 18:54:16

I've got some custom text posting fields in post.asp that don't show when you select Preview. How can I modify pop_preview.asp to show these fields which get added to Message. This is an example of the code in post.asp

If strRqMethod = "Topic" then
    		Response.Write	"		 <tr>" & vbNewLine & _
 				"		 <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""middle"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Application Type: </b></font></td>" & vbNewLine & _
                                "		<td bgColor=""" & strPopUpTableColor & """><select name=""Apptype"" size=""1"">" & vbNewLine
Response.Write	"<option value=""New"">New</option>" & vbNewLine & _
		"<option value=""Review"">Review</option>" & vbNewLine & _
		"<option value=""Revalidation"">Revalidation</option>" & vbNewLine & _
		"<option value=""Upgrade"">Upgrade</option>" & vbNewLine & _
		"<option value=""Downgrade"">Downgrade</option>" & vbNewLine
		Response.Write	"                      </select></font>" & vbNewLine & _
		                "                    </td></tr>" & vbNewLine

And this is how it looks in post_info.asp:

'**************CUSTOM POST FIELDS ************
				dim ApplicantMessage
				ApplicantMessage = "Name: " & Request.Form("Subject") & vbNewLine
				ApplicantMessage = ApplicantMessage & "Level: " & Request.Form("Level") & vbNewLine
				ApplicantMessage = ApplicantMessage & "Type: " & Request.Form("Apptype") & vbNewLine
				ApplicantMessage = ApplicantMessage & "Case Officer: " & Request.Form("CaseOfficer") & vbNewLine
				ApplicantMessage = ApplicantMessage & "Customer: " & Request.Form("Customer") & vbNewLine
				ApplicantMessage = ApplicantMessage & "Clearance#: " & Request.Form("Clearanceno") & vbNewLine
				txtMessage = ChkString(ApplicantMessage & vbNewLine & "Additional Details: " & Request.Form("Message"),"message")
'******************************
	       txtLocation = ChkString(Request.Form("Location"),"message")
		txtSubject = ChkString(Request.Form("Subject"),"SQLString")
		dateHolder = DatetoStr(CDate(Request.Form("event_date")))

I think the javascript at the top of pop_preview.asp pulls the info out of the form but how can I add what is in those extra fields?

StephenD
Senior Member

Australia
1044 Posts

Posted - 18 May 2005 : 08:05:33

Anyone got any ideas on this one? I've been messing around meself with the javascript but not getting anywhere fast.

MarcelG
Retired Support Moderator

Netherlands
2625 Posts

Posted - 23 May 2005 : 15:23:18

Well, you're on the right track, that's for sure. But, as far as I can see you don't need to change thát code.
If I'm right, you need to change the following code: (Line 72..)

strMessagePreview = trim(Request.Form("message"))

There you need to add the other forms....so, for instance.

strMessagePreview = trim(Request.Form("message")) & "<br>Location:" & trim(Request.Form("Location"),"message")

Just a thought. If I'm reading it right, this should work.
In

portfolio - linkshrinker - oxle - twitter

Edited by - MarcelG on 23 May 2005 15:24:03

StephenD
Senior Member

Australia
1044 Posts

Posted - 23 May 2005 : 17:34:30

Thanks marcelgoertz, although that didn't seem to work. I even tried using a dimcustompreview same as my post_info example above. Tried just using Request.Form("Location") too.

Topic

New Topic

Topic Locked

Printer Friendly

Jump To:

Snitz Forums 2000

This page was generated in 0.2 seconds.