<%act=request.QueryString("action")
if act="add" then
call add()
end if%>
网上预约挂号可享受：
- 免专家挂号费，可享受优先就诊和绿色通道服务。
- 为您建立个人健康档案，享受医院提供的专业医疗服务信息。
- 我院坚决维护患者隐私权，网上填写的所有资料只为预约提供方便，不作其它用途,就诊后即删除填写资料。
- 网上挂号无任何附加费用，主要是为了方便您及时就诊，也方便我们及时安排针对 您病情的专家号。
请填入下列资料(标示“*”必填写)
<%
sub add()
names=saferequest(request("names"),0) '联系人
tel=saferequest(request("tel"),0) '联系电话
Email=saferequest(request("Email"),0) 'Email
sex=saferequest(request("sex"),0) '性别
ks=saferequest(request("ks"),0) '科室
title=saferequest(request("title"),0) '病情简述
content=saferequest(request("content"),0) '说明
kbtime=saferequest(request("kbtime"),0) '预约时间
ys=saferequest(request("ys"),0)
age=saferequest(request("age"),0) '医师
addtime=now() '提交时间
on error resume next
sql="INSERT INTO zjyy ( name, tel, Email, sex, ks, title, content, kbtime, ys, addtime,age) values ('"&names&"','"&tel&"','"&Email&"','"&sex&"','"&ks&"','"&title&"','"&content&"','"&kbtime&"','"&ys&"','"&addtime&"','"&addtime&"')"
ado.getrecordset(sql)
call errorredirect
If Err.number>0 Then
Response.Write "专家预约提交失败!"
Response.End
else
response.Write ""
response.End()
End If
end sub
%>