<SCRIPT LANGUAGE = VBS> 
Sub cmdSetRecord_OnClick()
qstr="exec add_request @from_who='" & document.frm_duty.elements.from_who.value & "', " & 	_
		"@r_date='" & document.frm_duty.text_date.value & "', " & _
		"@theme='" & document.frm_duty.elements.theme.value & "', " & _
		"@subject='" & document.frm_duty.text_subject.value & "', " & _
		"@performer='" & document.frm_duty.text_performer.value & "', " & _
		"@phone='" & document.frm_duty.text_phone.value & "', " & _
		"@ip_connect='" & "<% = Request.ServerVariables("REMOTE_ADDR") %>" & "'"
	<% 
	set dbRequest = Server.CreateObject("ADODB.Connection") 
	dbRequest.Open (MM_WebOrder_STRING)
	dbRequest.Execute(qstr)
	%>
	MsgBox qstr
End Sub
</SCRIPT>

<SCRIPT LANGUAGE="vbscript">
	Sub cmdSetRecord_OnClick()
	Dim dbRequest
	Dim sql
	sql = "exec add_request @from_who='" & "12" & "', " & _
	"@phone='" & document.frm_duty.text_phone.value  & "', " & _
             "@ip_connect='" & "<% = Request.ServerVariables("REMOTE_ADDR") %>" & "'"
		set dbRequest = CreateObject("ADODB.Connection")
		dbRequest.Open (MM_WebOrder_STRING)
		dbRequest.Execute(sql)
	MsgBox sql
	End Sub
</script>