申购人员信息确认
<% dim linkman,tel linkman = trim(request("u")) tel = trim(request("m")) 'If linkman="" and tel="" Then 'linkman = request.Cookies("linkman") 'tel = request.Cookies("tel") 'End If %> <%If linkman="" or tel="" then%>

参评联系人：
电话：

<%else%> <% If linkman<>"" and tel<>"" Then Dim rs,sqlstr sqlstr="select * from diygame_201106 where isdel='否'" sqlstr = sqlstr & " and linkman='" & linkman & "' and tel='" & tel & "'" response.write "" OpenDb() set rs= server.createobject("ADODB.Recordset") rs.open sqlstr,newsconn,3,1 If rs.eof Then isshow=False Dim a,b a=linkman b=tel linkman="" tel="" response.write "

再次查找

请立即报名" Else Dim payproject payproject=rs("payproject") response.Cookies("linkman")=rs("linkman") response.Cookies("uid")=rs("id") response.Cookies("tel")=rs("tel") %>

参评联系人＊	<%=rs("linkman")%>	联系电话＊	<%=rs("tel")%>
电子邮箱＊	<%=rs("email")%>	传    真	<%=rs("fax")%>
单位名称＊	<%=rs("company")%>	邮    编	<%=rs("zip")%>
单位地址(学校名称)	<%=rs("address")%>
负责工程师	<%=rs("engineer")%>	项目名称	<%=rs("projectname")%>
团队伙伴	<%=rs("groupinfo")%>
个人或团队简历＊	<%=rs("resumeinfo")%>
个人或团队以往作品成绩成果	<%=rs("production")%>
参赛者需使用主办方提供的统一标准套件（成本价100元/套），须支付50元       <%If InStr(payproject,"标准套件")>0 Then response.write "已支付" else%> <%End if%>
申请使用中颖s-lab开发工具（须交押金50元）＊		<% If rs("apply")="yes" And InStr(payproject,"开发工具")>0 Then response.write "已支付" ElseIf rs("apply")="yes" And (InStr(payproject,"开发工具")<=0 Or isNull(InStr(payproject,"开发工具"))) then %> <%If datediff("s","2011-7-29 14:00:00",Time())<0 then%>&t=中颖s-lab开发工具" target="_blank">马上支付<%else%>2011.07.29日14点整开始秒杀活动，秒杀成功将有提示，谢谢您的支持！ 当前时间：<%=Now()%><%End if%> <% End If %>

<% End If rs.close set rs = nothing CloseDb() Else response.write "" End If End if %>

21ic中国电子网版权所有