<%
'--------------------------------------------------------------------
' Microsoft ADO
'
' (c) 1996-1998 Microsoft Corporation.  All Rights Reserved.
'
'
'
' ADO constants include file for VBScript
'
'--------------------------------------------------------------------

'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

'---- CursorOptionEnum Values ----
Const adHoldRecords = &H00000100
Const adMovePrevious = &H00000200
Const adAddNew = &H01000400
Const adDelete = &H01000800
Const adUpdate = &H01008000
Const adBookmark = &H00002000
Const adApproxPosition = &H00004000
Const adUpdateBatch = &H00010000
Const adResync = &H00020000
Const adNotify = &H00040000
Const adFind = &H00080000
Const adSeek = &H00400000
Const adIndex = &H00800000

'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

'---- ExecuteOptionEnum Values ----
Const adRunAsync = &H00000010
Const adAsyncExecute = &H00000010
Const adAsyncFetch = &H00000020
Const adAsyncFetchNonBlocking = &H00000040
Const adExecuteNoRecords = &H00000080

'---- ConnectOptionEnum Values ----
Const adAsyncConnect = &H00000010

'---- ObjectStateEnum Values ----
Const adStateClosed = &H00000000
Const adStateOpen = &H00000001
Const adStateConnecting = &H00000002
Const adStateExecuting = &H00000004
Const adStateFetching = &H00000008

'---- CursorLocationEnum Values ----
Const adUseServer = 2
Const adUseClient = 3

'---- DataTypeEnum Values ----
Const adEmpty = 0
Const adTinyInt = 16
Const adSmallInt = 2
Const adInteger = 3
Const adBigInt = 20
Const adUnsignedTinyInt = 17
Const adUnsignedSmallInt = 18
Const adUnsignedInt = 19
Const adUnsignedBigInt = 21
Const adSingle = 4
Const adDouble = 5
Const adCurrency = 6
Const adDecimal = 14
Const adNumeric = 131
Const adBoolean = 11
Const adError = 10
Const adUserDefined = 132
Const adVariant = 12
Const adIDispatch = 9
Const adIUnknown = 13
Const adGUID = 72
Const adDate = 7
Const adDBDate = 133
Const adDBTime = 134
Const adDBTimeStamp = 135
Const adBSTR = 8
Const adChar = 129
Const adVarChar = 200
Const adLongVarChar = 201
Const adWChar = 130
Const adVarWChar = 202
Const adLongVarWChar = 203
Const adBinary = 128
Const adVarBinary = 204
Const adLongVarBinary = 205
Const adChapter = 136
Const adFileTime = 64
Const adDBFileTime = 137
Const adPropVariant = 138
Const adVarNumeric = 139

'---- FieldAttributeEnum Values ----
Const adFldMayDefer = &H00000002
Const adFldUpdatable = &H00000004
Const adFldUnknownUpdatable = &H00000008
Const adFldFixed = &H00000010
Const adFldIsNullable = &H00000020
Const adFldMayBeNull = &H00000040
Const adFldLong = &H00000080
Const adFldRowID = &H00000100
Const adFldRowVersion = &H00000200
Const adFldCacheDeferred = &H00001000
Const adFldKeyColumn = &H00008000

'---- EditModeEnum Values ----
Const adEditNone = &H0000
Const adEditInProgress = &H0001
Const adEditAdd = &H0002
Const adEditDelete = &H0004

'---- RecordStatusEnum Values ----
Const adRecOK = &H0000000
Const adRecNew = &H0000001
Const adRecModified = &H0000002
Const adRecDeleted = &H0000004
Const adRecUnmodified = &H0000008
Const adRecInvalid = &H0000010
Const adRecMultipleChanges = &H0000040
Const adRecPendingChanges = &H0000080
Const adRecCanceled = &H0000100
Const adRecCantRelease = &H0000400
Const adRecConcurrencyViolation = &H0000800
Const adRecIntegrityViolation = &H0001000
Const adRecMaxChangesExceeded = &H0002000
Const adRecObjectOpen = &H0004000
Const adRecOutOfMemory = &H0008000
Const adRecPermissionDenied = &H0010000
Const adRecSchemaViolation = &H0020000
Const adRecDBDeleted = &H0040000

'---- GetRowsOptionEnum Values ----
Const adGetRowsRest = -1

'---- PositionEnum Values ----
Const adPosUnknown = -1
Const adPosBOF = -2
Const adPosEOF = -3

'---- enum Values ----
Const adBookmarkCurrent = 0
Const adBookmarkFirst = 1
Const adBookmarkLast = 2

'---- MarshalOptionsEnum Values ----
Const adMarshalAll = 0
Const adMarshalModifiedOnly = 1

'---- AffectEnum Values ----
Const adAffectCurrent = 1
Const adAffectGroup = 2
Const adAffectAll = 3
Const adAffectAllChapters = 4

'---- ResyncEnum Values ----
Const adResyncUnderlyingValues = 1
Const adResyncAllValues = 2

'---- CompareEnum Values ----
Const adCompareLessThan = 0
Const adCompareEqual = 1
Const adCompareGreaterThan = 2
Const adCompareNotEqual = 3
Const adCompareNotComparable = 4

'---- FilterGroupEnum Values ----
Const adFilterNone = 0
Const adFilterPendingRecords = 1
Const adFilterAffectedRecords = 2
Const adFilterFetchedRecords = 3
Const adFilterPredicate = 4
Const adFilterConflictingRecords = 5

'---- SearchDirectionEnum Values ----
Const adSearchForward = 1
Const adSearchBackward = -1

'---- PersistFormatEnum Values ----
Const adPersistADTG = 0
Const adPersistXML = 1

'---- StringFormatEnum Values ----
Const adStringXML = 0
Const adStringHTML = 1
Const adClipString = 2

'---- ConnectPromptEnum Values ----
Const adPromptAlways = 1
Const adPromptComplete = 2
Const adPromptCompleteRequired = 3
Const adPromptNever = 4

'---- ConnectModeEnum Values ----
Const adModeUnknown = 0
Const adModeRead = 1
Const adModeWrite = 2
Const adModeReadWrite = 3
Const adModeShareDenyRead = 4
Const adModeShareDenyWrite = 8
Const adModeShareExclusive = &Hc
Const adModeShareDenyNone = &H10

'---- IsolationLevelEnum Values ----
Const adXactUnspecified = &Hffffffff
Const adXactChaos = &H00000010
Const adXactReadUncommitted = &H00000100
Const adXactBrowse = &H00000100
Const adXactCursorStability = &H00001000
Const adXactReadCommitted = &H00001000
Const adXactRepeatableRead = &H00010000
Const adXactSerializable = &H00100000
Const adXactIsolated = &H00100000

'---- XactAttributeEnum Values ----
Const adXactCommitRetaining = &H00020000
Const adXactAbortRetaining = &H00040000

'---- PropertyAttributesEnum Values ----
Const adPropNotSupported = &H0000
Const adPropRequired = &H0001
Const adPropOptional = &H0002
Const adPropRead = &H0200
Const adPropWrite = &H0400

'---- ErrorValueEnum Values ----
Const adErrInvalidArgument = &Hbb9
Const adErrNoCurrentRecord = &Hbcd
Const adErrIllegalOperation = &Hc93
Const adErrInTransaction = &Hcae
Const adErrFeatureNotAvailable = &Hcb3
Const adErrItemNotFound = &Hcc1
Const adErrObjectInCollection = &Hd27
Const adErrObjectNotSet = &Hd5c
Const adErrDataConversion = &Hd5d
Const adErrObjectClosed = &He78
Const adErrObjectOpen = &He79
Const adErrProviderNotFound = &He7a
Const adErrBoundToCommand = &He7b
Const adErrInvalidParamInfo = &He7c
Const adErrInvalidConnection = &He7d
Const adErrNotReentrant = &He7e
Const adErrStillExecuting = &He7f
Const adErrOperationCancelled = &He80
Const adErrStillConnecting = &He81
Const adErrNotExecuting = &He83
Const adErrUnsafeOperation = &He84

'---- ParameterAttributesEnum Values ----
Const adParamSigned = &H0010
Const adParamNullable = &H0040
Const adParamLong = &H0080

'---- ParameterDirectionEnum Values ----
Const adParamUnknown = &H0000
Const adParamInput = &H0001
Const adParamOutput = &H0002
Const adParamInputOutput = &H0003
Const adParamReturnValue = &H0004

'---- CommandTypeEnum Values ----
Const adCmdUnknown = &H0008
Const adCmdText = &H0001
Const adCmdTable = &H0002
Const adCmdStoredProc = &H0004
Const adCmdFile = &H0100
Const adCmdTableDirect = &H0200

'---- EventStatusEnum Values ----
Const adStatusOK = &H0000001
Const adStatusErrorsOccurred = &H0000002
Const adStatusCantDeny = &H0000003
Const adStatusCancel = &H0000004
Const adStatusUnwantedEvent = &H0000005

'---- EventReasonEnum Values ----
Const adRsnAddNew = 1
Const adRsnDelete = 2
Const adRsnUpdate = 3
Const adRsnUndoUpdate = 4
Const adRsnUndoAddNew = 5
Const adRsnUndoDelete = 6
Const adRsnRequery = 7
Const adRsnResynch = 8
Const adRsnClose = 9
Const adRsnMove = 10
Const adRsnFirstChange = 11
Const adRsnMoveFirst = 12
Const adRsnMoveNext = 13
Const adRsnMovePrevious = 14
Const adRsnMoveLast = 15

'---- SchemaEnum Values ----
Const adSchemaProviderSpecific = -1
Const adSchemaAsserts = 0
Const adSchemaCatalogs = 1
Const adSchemaCharacterSets = 2
Const adSchemaCollations = 3
Const adSchemaColumns = 4
Const adSchemaCheckConstraints = 5
Const adSchemaConstraintColumnUsage = 6
Const adSchemaConstraintTableUsage = 7
Const adSchemaKeyColumnUsage = 8
Const adSchemaReferentialConstraints = 9
Const adSchemaTableConstraints = 10
Const adSchemaColumnsDomainUsage = 11
Const adSchemaIndexes = 12
Const adSchemaColumnPrivileges = 13
Const adSchemaTablePrivileges = 14
Const adSchemaUsagePrivileges = 15
Const adSchemaProcedures = 16
Const adSchemaSchemata = 17
Const adSchemaSQLLanguages = 18
Const adSchemaStatistics = 19
Const adSchemaTables = 20
Const adSchemaTranslations = 21
Const adSchemaProviderTypes = 22
Const adSchemaViews = 23
Const adSchemaViewColumnUsage = 24
Const adSchemaViewTableUsage = 25
Const adSchemaProcedureParameters = 26
Const adSchemaForeignKeys = 27
Const adSchemaPrimaryKeys = 28
Const adSchemaProcedureColumns = 29
Const adSchemaDBInfoKeywords = 30
Const adSchemaDBInfoLiterals = 31
Const adSchemaCubes = 32
Const adSchemaDimensions = 33
Const adSchemaHierarchies = 34
Const adSchemaLevels = 35
Const adSchemaMeasures = 36
Const adSchemaProperties = 37
Const adSchemaMembers = 38

'---- SeekEnum Values ----
Const adSeekFirstEQ = &H1
Const adSeekLastEQ = &H2
Const adSeekAfterEQ = &H4
Const adSeekAfter = &H8
Const adSeekBeforeEQ = &H10
Const adSeekBefore = &H20

'---- ADCPROP_UPDATECRITERIA_ENUM Values ----
Const adCriteriaKey = 0
Const adCriteriaAllCols = 1
Const adCriteriaUpdCols = 2
Const adCriteriaTimeStamp = 3

'---- ADCPROP_ASYNCTHREADPRIORITY_ENUM Values ----
Const adPriorityLowest = 1
Const adPriorityBelowNormal = 2
Const adPriorityNormal = 3
Const adPriorityAboveNormal = 4
Const adPriorityHighest = 5

'---- CEResyncEnum Values ----
Const adResyncNone = 0
Const adResyncAutoIncrement = 1
Const adResyncConflicts = 2
Const adResyncUpdates = 4
Const adResyncInserts = 8
Const adResyncAll = 15

'---- ADCPROP_AUTORECALC_ENUM Values ----
Const adRecalcUpFront = 0
Const adRecalcAlways = 1
%>
<%
'Please replace ****** with appropriate information.
connString = "Provider=SQLOLEDB;Initial Catalog=RACP;Data Source=******; Connect Timeout=15;User Id=******;PASSWORD=******;"
mailserver="******"
end if
%>
<%
function SendEmail(fromwho, fromwhoname, towho, subject, body, host, emailtype, website, bounceaddress)
	Dim Mail
  	Set Mail = Server.CreateObject("Persits.MailSender")
  	Mail.Host = host 
	Mail.Port = 25
  	Mail.AddAddress towho
  	Mail.From = fromwho
  	if bounceaddress<>"" then
  		Mail.MailFrom = bounceaddress
  	end if
  	if fromwhoname<>"" then
 		Mail.FromName = fromwhoname
 	end if
  	Mail.Subject = subject
	Mail.Body = body
    	if lcase(emailtype)="html" then
    		Mail.IsHTML = True 
    	else
    		Mail.IsHTML = False
    	End if
  	On Error Resume Next
	Mail.Send 'toQueue
	If Err = 0 Then
		sendZMail = 0
  	else
   		sendZMail = Err
  	End If  
End function 
%>

<HTML>
<HEAD>
<TITLE>RACP - Feedback</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<%fold=""
top=6%>
<link rel="stylesheet" href="/css/racp.css" type="text/css">
<SCRIPT LANGUAGE="JavaScript" src="helpers/CSFunction.js"></SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
<!--

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}

function Validate(obj)
	{	var thisval, thisfield;
		var fields = new Array("FName", "LName",  "Email", "PostCode")
		var fieldLabels = new Array("First name", "Last name",  "Email", "Postcode")
		for (i=0; i < fields.length; i++)
		{	
			//if ((i == 5) || (i == 7))
			//{
			//	thisval = eval("obj." + fields[i] + ".options[obj." + fields[i] +".selectedIndex].value");
			//}
			//else 
			//{
				thisval = eval("obj." + fields[i] + ".value");	

			//}

			thisfield = eval("obj." + fields[i]);
			if (( thisval == "") && (i != 3))
			{
				alert ("Please enter " + fieldLabels[i]);
				thisfield.focus();
				return false;
			}

			if (i == 2)
			{
				if (isEmail(thisval) == false)
				{
					alert ("Please enter valid " + fieldLabels[i]);
					thisfield.focus();
					return false;
				}

				if (!(thisval == obj.ConfirmEmail.value))
				{
					alert ("Email and Confirm Email should be same");
					thisfield.focus();
					return false;
				}
			}

			if (i == 3)
			{	
				if (!(thisval  == ''))
				{
					if (IsPostCode(thisval) == false)
					{
						alert ("Please enter valid " + fieldLabels[i]);
						thisfield.focus();
						return false;
					}
				}
			}

			
		}
		
	}

//-->
</SCRIPT>
<!-- End Preload Script -->
</HEAD>
<%
Function CheckString (Str)
	If Str = "" Then
		Str = Null
	End If
	CheckString = Trim(Str)
End Function

Sub FetchCountry()
	Set oCom = Server.CreateObject("ADODB.Command")
	oCom.activeconnection = ConnString
	oCom.commandtype = adCmdtext
	oCom.commandtext = "Select * from country order by countrycode"
	Set oRS = oCom.execute
									
	If Not (oRS.Eof And oRS.Bof) Then
		Do While Not oRS.Eof
			Response.Write("<option value='"&oRS("countrycode")&"' >"&oRS("countryname")&"</option>")
			oRS.movenext
		Loop
	End If
	set oRS = Nothing
	set oCom = Nothing
End Sub

Function GetTextValue(Cat, Val)
	Set oCom1 = Server.CreateObject("ADODB.Command")
	oCom1.activeconnection = ConnString
	oCom1.commandtype = adCmdtext
	GetTextValue = Val
	If Val = "5" Then
		GetTextValue = "Australia"
	ElseIf Val="39" Then
		GetTextValue = "New Zealand"
	End If
	If Not IsNull(CheckString(Val)) Then
		If Cat = "State" Then
			oCom1.commandtext = "Select StateName from State where stateID=" & Val
		Else
			oCom1.commandtext = "Select CountryName from country where countrycode=" & Val
		End If
		Set oRS1 = oCom1.execute
										
		If Not (oRS1.Eof And oRS1.Bof) Then
			GetTextValue = oRS1(0)
		End If
		set oRS1 = Nothing
		set oCom1 = Nothing
	End If
End Function

Dim sDataAction
sDataAction = Request ("DataAction")

If sDataAction  <> "" Then
	Select Case sDataAction
	Case "Save"
		Dim sTitle, sFName, sLName, sEmail,  sAddress1, sAddress2, sSuburb, sPostCode
		Dim sState, sCountry, sComment, sOptin
		sTitle = CheckString (Request ("Title")) : sFName = CheckString (Request ("FName")) : sLName = CheckString (Request ("LName"))
		sEmail = CheckString (Request ("Email")) : sAddress1 = CheckString (Request ("Address1")) : sAddress2 = CheckString (Request ("Address2"))
		sSuburb = CheckString (Request ("Suburb")) : sPostCode = CheckString (Request ("PostCode")) : sState = CheckString (Request ("State")) : sCountry = CheckString (Request ("Country"))
		sComment = CheckString (Request ("Comments")) : nOptin = CheckString (Request ("Optin"))
		sPhone = CheckString (Request ("Phone"))
		
		'Response.Write sTitle & " " & sFName & " " & sLName & "<BR>"
		'Response.Write sEmail & "<BR>"
		'Response.Write sAddress1 & " " & sAddress2 & " " & sSuburb & " " & sPostCode & " " & sState & " " & sCountry & "<BR>"
		'Response.Write sComment
		
		Set Conn = Server.createObject("ADODB.Connection")
		conn.open connstring
		Set oCom = Server.CreateObject("Adodb.Command")
		oCom.activeconnection = ConnString
		oCom.commandtype = adCmdStoredProc
		oCom.commandtext = "Add_Feedback_babu"
		oCom.parameters(1) = sTitle
		oCom.parameters(2) = sFName
		oCom.parameters(3) = sLName
		oCom.parameters(4) = sEmail
		oCom.parameters(5) = sPhone
		oCom.parameters(6) = sAddress1
		oCom.parameters(7) = sAddress2
		oCom.parameters(8) = sSuburb
		oCom.parameters(9) = sState
		oCom.parameters(10) = sPostCode
		oCom.parameters(11) = sCountry
		oCom.parameters(12) = sComment
		oCom.parameters(13) = nOptin
		oCom.parameters(14) = Session.SessionID
		oCom.Execute
		
		Set oCom = Nothing

		body="Name            - "&sFName & " " &sLName & vbnewline
		body=body&"Email           - "&sEmail&vbnewline
		body=body&"Country         - "&GetTextValue("Country", sCountry)&vbnewline
		If Not IsNull(sPhone) Then body=body&"Phone       - "&sPhone&vbnewline
		If Not IsNull(sAddress1) Then body=body&"Address       -"&vbnewline&sAddress1&vbnewline
		If Not IsNull(sAddress2) Then body=body&sAddress2&vbnewline
		If Not IsNull(sSuburb) Then body=body&"Suburb       - "&sSuburb&vbnewline
		If Not IsNull(sState) Then body=body&"State       - "& sState&vbnewline
		If Not IsNull(sPostCode) Then body=body&"Postcode       - "&sPostCode&vbnewline
		If Not IsNull(sCountry) Then body=body&"Country         - "&GetTextValue("Country", sCountry)&vbnewline
		If Not IsNull(sComment) Then body=body&"Comments       - "&sComment&vbnewline
		If nOptin = 1  Then 
			body=body&"I'd like to be kept up-to-date with information from the RACP."&vbnewline
		End If
		
		body=body&"Date            - "&Date&" "&Time&vbnewline
									
		
		'Please replace ****** with appropriate information.
		call SendEmail("racp@liquidvision.com", "RACP Website", "betterpractice@racp.edu.au", "Feedback for RACP Website", body, "******", "text", "RACP", "")

								 
	End Select
End If
%>
<BODY bgcolor="#ffffff" topmargin=0 leftmargin=0 ONLOAD="preloadImages();">
<TABLE WIDTH=780 BORDER=0 CELLPADDING=0 CELLSPACING=0>
   <TR> 
    <TD><SCRIPT LANGUAGE="JavaScript">
<!--

function newImage(arg) {
	if (document.images) {
		rslt = new Image();
		rslt.src = arg;
		return rslt;
	}
}

function changeImages() {
	if (document.images && (preloadFlag == true)) {
		for (var i=0; i<changeImages.arguments.length; i+=2) {
			document[changeImages.arguments[i]].src = changeImages.arguments[i+1];
		}
	}
}

var preloadFlag = false;
function preloadImages() {
	if (document.images) {
		
		start_over = newImage("/images/start_over.jpg");
		cssmodel_over = newImage("/images/cssmodel_over.jpg");
		resources_over = newImage("/images/resources_over.jpg");
		casestudies_over = newImage("/images/casestudies_over.jpg");
		casestudies_over011 = newImage("/images/casestudies_over-11.jpg");
		emailexpert_over = newImage("/images/emailexpert_over.jpg");
		feedback_over = newImage("/images/feedback_over.jpg");
		contactus_over = newImage("/images/contactus_over.jpg");
		search_over = newImage("/images/search_over.jpg");
				
		intro_over = newImage("/nav_images/intro_over.jpg");
		cssmodel_15_over = newImage("/nav_images/cssmodel_15_over.jpg");
		cssmodel_16_over = newImage("/nav_images/cssmodel_16_over.jpg");
		cssmodel_21_over = newImage("/nav_images/cssmodel_21_over.jpg");

				

		preloadFlag = true;
	}
}

function pop_up(thepagename,sw,sh,sc){
app1="toolbar=no"
app2="width="+sw
app3="height="+sh
app4="menubar=no"
app5="resizeable=yes"
app6="scrollbars="+sc
app7="left=50"
app8="top=50"
app=app1+","+app2+","+app3+","+app4+","+app5+","+app6+","+app7+","+app8
window.open(thepagename,"",app)
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
function findUrl() { //v2.0
  //javascript:window.location;
  theUrl = window.location;
  return (theUrl);
}
// -->
</SCRIPT>
<TABLE WIDTH=780 BORDER=0 CELLPADDING=0 CELLSPACING=0>
	<TR>
		<TD COLSPAN=4>
			<a href="/index.cfm"><IMG SRC="/images/left_banner.jpg" border=0 WIDTH=395 HEIGHT=89></a></TD>
		<TD COLSPAN=5>
			<a href="/index.cfm"><IMG SRC="/images/right_banner.jpg" border=0 WIDTH=385 HEIGHT=89></a></TD>
	</TR>
	<TR>
		<TD>
			<A HREF="/start/start.cfm"
				ONMOUSEOVER="changeImages('start', '/images/start_over.jpg'); return true;"
				ONMOUSEOUT="changeImages('start', '/images/start.jpg'); return true;">
				<IMG NAME="start" SRC="/images/start.jpg" WIDTH=106 HEIGHT=21 BORDER=0></A></TD>
		<TD>
			<A HREF="/cssmodel/cssmodel.cfm"
				ONMOUSEOVER="changeImages('cssmodel', '/images/cssmodel_over.jpg'); return true;"
				ONMOUSEOUT="changeImages('cssmodel', '/images/cssmodel.jpg'); return true;">
				<IMG NAME="cssmodel" SRC="/images/cssmodel.jpg" WIDTH=109 HEIGHT=21 BORDER=0></A></TD>
		<TD>
			<A HREF="/resources/ressummary.cfm"
				ONMOUSEOVER="changeImages('resources', '/images/resources_over.jpg'); return true;"
				ONMOUSEOUT="changeImages('resources', '/images/resources.jpg'); return true;">
				<IMG NAME="resources" SRC="/images/resources.jpg" WIDTH=80 HEIGHT=21 BORDER=0></A></TD>
		<TD>
			<A HREF="/casestudies/summary.cfm"
				ONMOUSEOVER="changeImages('casestudies', '/images/casestudies_over-11.jpg'); return true;"
				ONMOUSEOUT="changeImages('casestudies', '/images/casestudies.jpg'); return true;">
				<IMG NAME="casestudies" SRC="/images/casestudies.jpg" WIDTH=100 HEIGHT=21 BORDER=0></A></TD>
		<TD>
			<A HREF="/email2/overview.cfm"
				ONMOUSEOVER="changeImages('askcolleague', '/images/askcolleague_over.jpg'); return true;"
				ONMOUSEOUT="changeImages('askcolleague', '/images/askcolleague.jpg'); return true;">
				<IMG NAME="askcolleague" SRC="/images/askcolleague.jpg" WIDTH=114 HEIGHT=21 BORDER=0></A></TD>
		<TD>
			<A HREF="/feedback.cfm"
				ONMOUSEOVER="changeImages('feedback', '/images/feedback_over.jpg'); return true;"
				ONMOUSEOUT="changeImages('feedback', '/images/feedback.jpg'); return true;">
				<IMG NAME="feedback" SRC="/images/feedback.jpg" WIDTH=79 HEIGHT=21 BORDER=0></A></TD>
		<TD>
			<A HREF="/contactus.cfm"
				ONMOUSEOVER="changeImages('contactus', '/images/contactus_over.jpg'); return true;"
				ONMOUSEOUT="changeImages('contactus', '/images/contactus.jpg'); return true;">
				<IMG NAME="contactus" SRC="/images/contactus.jpg" WIDTH=88 HEIGHT=21 BORDER=0></A></TD>
		<TD>
			<A HREF="/search.cfm"
				ONMOUSEOVER="changeImages('search', '/images/search_over.jpg'); return true;"
				ONMOUSEOUT="changeImages('search', '/images/search.jpg'); return true;">
				<IMG NAME="search" SRC="/images/search.jpg" WIDTH=63 HEIGHT=21 BORDER=0></A></TD>
		<TD>
			<IMG SRC="/images/blank.jpg" WIDTH=41 HEIGHT=21></TD>
	</TR>
</TABLE></TD>
  </TR>
</TABLE>

<table width="780" border="0" cellspacing="0" cellpadding="0">
  <tr>
	<td width="10">&nbsp;</td>
    <td valign="top"> 
      
        <!--nested table 12 whole middel section-->
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
			<td bgcolor="#ffffff" width="8"><img src="images/none.gif" width="8" height="1"></td>
			<td valign="top" width="100%"> 
             
                <!--nested table 13 middle section-->
                <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
					<tr> 
						<td class="txt" valign="top"  colspan="3"><br><IMG SRC="images/title_feedback.gif" WIDTH="429" HEIGHT="22" BORDER="0" ALT=""></td>
					</tr>
					<tr> 
						<td class="txt" valign="top" colspan="3">&nbsp;</td>
					</tr>
					<tr> 
						<td class="txt" valign="top" colspan="3">
						<%'If sDataAction = "" Then%>
							<table width="100%" border="0" cellspacing="0" cellpadding="0">
							<tr> 
								<td class="txt" valign="top" colspan="2"align="left">
									<span class="heading">Your Opinions and Experiences Count</span>
								</td>
							</tr>
							<tr>
								<td width=51 valign="top"><IMG SRC="images/i.gif" WIDTH="51" HEIGHT="43" BORDER="0" ALT=""></td>
								<td class="txt" valign="middle"><img src="images/spacer.gif" width="1" height="6" border="0" alt=""><br>Contribute a case study or tell us about your experiences. We would like to hear about your projects.
									
									<br><br>We also welcome any comments about this site.<br><br>
								</td>
							</tr>
							</table>
							<%'End If%>
						</td>
					</tr>
					<tr>
						<!-- <td bgcolor="#497985" width=1 align="center"><IMG SRC="images/spacer.gif" WIDTH="1" HEIGHT="1" BORDER="0" ALT=""></td> -->
						<td class="txt" valign="top" align="center">
						<!-- content starts here -->
						<%If sDataAction = "" Then%>
						<table cellpadding=0 cellspacing=0 border=0 width="95%">
								<tr>
									<td><table cellpadding=0 cellspacing=0 border=0 width="100%"  bgcolor="#3B80A7">
											<tr>
												<td width="19" height="19"><img src="images/blue/blue_lt_curve.gif" width="19" height="19" border="0" alt=""></td>
												<td width="*" height="19" background="images/blue/blue_line_top_curve.gif" border="0" alt=""><img src="images/blue/blue_spacer.gif" width="1" height="1" border="0" alt=""></td>
												<td width="19" height="19"><img src="images/blue/blue_rt_curve.gif" width="19" height="19" border="0" alt=""></td>
											</tr>
										</table></td>
									<td width="*"></td>
									<td width="5">&nbsp;</td>
								</tr>
								<tr>
									<td><table cellpadding=0 cellspacing=0 border=0 width="100%"   bgcolor="#3B80A7">
											<tr>
												<td width="1" bgcolor="#497985"><img src="images/spacer.gif" width="1" height="1" border="0" alt=""></td>
												<td width="16">&nbsp;</td>
												<td width="*" class="smaller">
													<table cellpadding="0" cellspacing="0" align="center" width="95%" bgcolor="#3B80A7">
														<tr>
															<td class="white">
																<img src="images/spacer.gif" width="1" height="0" border="0" alt=""><br>Please complete your details below and we will respond as soon as possible.<br>
																<img src="images/spacer.gif" width="1" height="12" border="0" alt=""><br>
															</td>
														</tr>
													</table>
												
												</td>
												<td width="15">&nbsp;</td>
												<td width="1" bgcolor="#497985"><img src="images/spacer.gif" width="1" height="1" border="0" alt=""></td>
											</tr>
										</table></td>
									<td width="*"></td>
									<td width="5">&nbsp;</td>
								</tr>
								<tr>
									<td><table cellpadding=0 cellspacing=0 border=0 width="100%"   bgcolor="#E7EFF2">
											<tr>
												<td width="1" bgcolor="#497985"><img src="images/spacer.gif" width="1" height="1" border="0" alt=""></td>
												<td width="16">&nbsp;</td>
												<td width="*" class="smaller">
													<table cellpadding="5" cellspacing="0" align="center" width="95%">
													<tr>
														<td class="white">
															<table cellpadding=2 cellspacing=0 border=0>
															<tr>
																<td colspan=3>
																<Form Name="FeedbackForm" Method=Post Action="Feedback.cfm" onSubmit="return Validate(this);">
																<Input Type=Hidden Name=DataAction Value="Save">
																<br>
																  <table border="0" cellspacing="0" cellpadding="1">
																	<tr> 
																	  <td width="85">Title</td>
																	  <td width="251"> 
																	  
																		<select name="Title" width="251 px" style="width:200px">
																		  <option value = "" selected>Please select</option>
																		  <option value="Dr">Dr</option>
																		  <option value="Professor">Professor</option>
																		  <option value="Mr">Mr</option>
																		  <option value="Miss">Miss</option>
																		  <option value="Mrs" >Mrs</option>
																		  <option value="Ms" >Ms</option>
																		</select>
																	  </td>
																	</tr>
																	<tr> 
																	  <td width="75">First&nbsp;name</td>
																	  <td> 
																		<input type="text" name="FName" maxlength="50" style="width:200px">
																	  </td>
																	</tr>
																	<tr> 
																	  <td width="75">Last name</td>
																	  <td> 
																		<input type="text" name="LName" maxlength="50"  style="width:200px">
																	  </td>
																	</tr>
																	<tr valign="top"> 
																	  <td width="75">Email</td>
																	  <td> 
																		<input type="text" name="Email" maxlength="50"  style="width:200px">
																	  </td>
																	</tr>
																	<tr valign="top"> 
																	  <td width="90">Confirm email</td>
																	  <td> 
																		<input type="text" name="ConfirmEmail" maxlength="50"  style="width:200px">
																	  </td>
																	</tr>
																	<tr valign="top"> 
																	  <td width="75">Telephone</td>
																	  
																	  <td><input type="text" name="phone" maxlength="50"  style="width:200px"></a></td>
																	</tr>
																	<tr> 
																	  <td width="75">Address</td>
																	  <td> 
																		<input type="text" name="Address1" maxlength="100" style="width:200px">
																	  </td>
																	</tr>
																	<tr> 
																	  <td width="75">&nbsp;</td>
																	  <td> 
																		<input type="text" name="Address2" maxlength="100" style="width:200px">
																	  </td>
																	</tr>
																	<tr> 
																	  <td width="75">Suburb/Town</td>
																	  <td> 
																		<input type="text" name="Suburb" maxlength="50"  style="width:200px">
																	  </td>
																	</tr>
																	<tr valign="top"> 
																	  <td width="75">State</td>
																	  <td> 
																		<select name="State" style="width:200px">
																		  <option value = "" selected>Please select</option>
																		  <option Value="ACT">ACT</option>
																		  <option Value="VIC">VIC</option>
																		  <option Value="NSW">NSW</option>
																		  <option Value="QLD">QLD</option>
																		  <option Value="SA">SA</option>
																		  <option Value="WA">WA</option>
																		  <option Value="NT">NT</option>
																		  <option Value="TAS">TAS</option>
																		  <option Value="Other">Other</option>
																		</select>
																	  </td>
																	</tr>
																	<tr valign="top"> 
																	  <td width="75">Postcode</td>
																	  <td width="151"> 
																		<input type="text" name="PostCode" maxlength="50" style="width:200px" >
																	  </td>
																	</tr>
																	<tr valign="top"> 
																	  <td width="75">Country</td>
																	  <td> 
																		<select name="Country" style="width:295px">
																		  <option value = "" selected>Please select</option>
																		  <option value="5">Australia</option>
																		  <option value="39">New Zealand</option>
																		  <option value="">----------</option>
																		 <%Call FetchCountry%>
																		</select>
																	  </td>
																	</tr>
																	<tr valign="top"> 
																	  <td width="75">Comments</td>
																	  <td> 
																		<textarea name="Comments" rows="4" style="width:295px"  cols="46"></textarea>
																	  </td>
																	</tr>
																	<tr valign="top"> 
																	  <td width="75">&nbsp;</td>
																	  <td>
																		<input type="checkbox"  name="Optin" style="width:15px" value="1">
																		I'd like to be kept up-to-date with information<br>from the RACP.<br>
																		
																	  </td>
																	</tr>
																</table>
																
																</td>
															</tr>
														</table>
													</td>
												  </tr>
												</table>
												
												</td>
												<td width="15">&nbsp;</td>
												<td width="1" bgcolor="#497985"><img src="images/spacer.gif" width="1" height="1" border="0" alt=""></td>
											</tr>
										</table></td>
									<td width="*"></td>
									<td width="5">&nbsp;</td>
								</tr>
								<tr>
									<td><table cellpadding=0 cellspacing=0 border=0 width="100%"   bgcolor="#3B80A7">
											<tr>
												<td width="1" bgcolor="#497985"><img src="images/spacer.gif" width="1" height="1" border="0" alt=""></td>
												<td width="16">&nbsp;</td>
												<td width="*" class="smaller">
													<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#3B80A7">
														<tr><td colspan=4><IMG SRC="images/spacer.gif" WIDTH="1" HEIGHT="6" BORDER="0" ALT=""></td></tr>
													  <tr>
														<td width="13">&nbsp;</td>
														<td class="white">
															<img src="images/spacer.gif" width="1" height="8" border="0" alt=""><br>Please click the submit button to submit your feedback
															
														</td>
														<td align="left" valign="middle" width="80">
															<img src="images/spacer.gif" width="1" height="4" border="0" alt=""><br><input type="submit" value="Submit" class="box1">
														</td>
														<td width="29">&nbsp;</td>
													  </tr>
													  <tr>
														<td width="13">&nbsp;</td>
														<td colspan=3>
															<!-- <img src="images/spacer.gif" width="1" height="4" border="0" alt=""> --><br><span class="white" style="font-size:10 px;"><b>RACP respects your privacy. To see our privacy policy click <a href="http://www.racp.edu.au/privacy_statement.htm" target="_new"><span class="white" style="font-size:10px"><u>here</u></span></a></b></span>
														</td>
													  </tr>
													  <!-- <tr>
														<td width="13">&nbsp;</td>
														<td colspan=3>
															<!-- <img src="images/spacer.gif" width="1" height="4" border="0" alt=""><br><span class="white" style="font-size:10 px;"><b>RACP respects your privacy. To see our privacy policy click <a href="#" onClick="MM_openBrWindow('/privacy.cfm','3x','scrollbars=yes,width=600,height=400')"><span class="white" style="text-decoration:underline; font-size:10 px;">here</span></a></b></span>
														</td>
													  </tr> -->
													   <tr><td colspan=4><IMG SRC="images/spacer.gif" WIDTH="1" HEIGHT="0" BORDER="0" ALT=""></td></tr>
													 
												</table>
												
												</td>
												<td width="15">&nbsp;</td>
												<td width="1" bgcolor="#497985"><img src="images/spacer.gif" width="1" height="1" border="0" alt=""></td>
											</tr>
										</table>
										</td>
									<td width="*"></td>
									<td width="5">&nbsp;</td>
								</tr>
								<tr>
									<td><table cellpadding=0 cellspacing=0 border=0 width="100%"   bgcolor="#3B80A7">
											<tr>
												<td height="19" width="19"><img src="images/blue/blue_lb_curve.gif" width="19" height="19" border="0" alt=""></td>
												<td width="*" valign="top"  height="19" background="images/blue/blue_line_bottom_curve.gif"><img src="images/spacer.gif" width="1" height="1" border="0" alt=""></td>
												<td height="19" width="19"><img src="images/blue/blue_rb_curve.gif" width="19" height="19" border="0" alt=""></td>
											</tr>
										</table></td>
									<td width="*"></td>
									<td width="5">&nbsp;</td>
								</tr>
							</table>
						</td>
					</tr>
				</table>
				</form>
				<!--end nested table 13 middle section-->
				<%Else
					Response.Write "<br><BR><B>Thank you for your feedback.</B></td></tr></table>"
				End If%>

            </td>
			
          </tr>
        </table>
        <!--end nested table 12 whole middle section-->
        <!--no table 14 or 15-->
        
		<td bgcolor="#859890" width="1"><img src="images/none.gif" width="1" height="320"></td>
		<td width="188" bgcolor="#FFFFFF" valign="top"> 
		  <!-- nested table 16-->
		  <table width="100%" border="0" cellspacing="0" cellpadding="0">
			<tr> 
			  <td bgcolor="#EDECE4" width="180" class="rhs" align="center"><br>
				<table cellpadding=0 cellspacing=0 border=0 width="100%">
						<tr>
							<td align="center"><img src="images/find_colleague.gif" width="150"></td>
						</tr>
						<tr>
							
                    
                <td align="center"><a href="email2/overview.cfm"><img src="images/click_here.gif" width="150" border=0></a></td>
						</tr>
					</table><br><br>
				</td>
			</tr>
			
		  </table>
		  <!--end nested table 16-->
		</td>
  </tr>
   <tr> 
		<td colspan=5 align="center">
		<%
		    path="doc/">
			
<table cellpadding=0 cellspacing=0 border=0 width="98%">
	<tr>
	   <td width="160" align="center"><a href="/index.cfm"><IMG SRC="/images/logo.jpg" WIDTH="93" HEIGHT="87" BORDER="0" ALT=""></a></td><td class="footer" align="center">&copy; 2003 The Royal Australasian College of Physicians<br>All Right Reserved. <!--<a href="#" onClick="MM_openBrWindow('/privacy.cfm','3x','scrollbars=yes,width=600,height=400')">-->
	   <a href="http://www.racp.edu.au/privacy_statement.htm" target="_new"><span class="footer">Privacy Statement</span></a> Site by <a href="http://www.liquidvision.com" target="_new"><span class="footer">Liquid Vision</span></a>
	   <br><br><span class="footer2">'This website would not have been possible without the support of our <a href="#" onClick="MM_openBrWindow('/doc/acknowledgement.cfm','ack','scrollbars=yes,width=618,height=400')">contributors</a> and sponsorship by the <a href="http://www.health.gov.au/" target="_new">Commonwealth Department of Health and Ageing</a> and the <a href="http://www.ruralspecialist.org.au" target="_new">Support Scheme for Rural Specialists</a>'.</span><br><br></td>
	  
	</tr>
</table>
		</td>
	</tr>
</table>
</BODY>
</HTML>