<%
Dim error,invalid,case1,name,owner,pid
name=Replace(Request("txtusername"),"'","''")
owner=Replace(Request("owner"),"'","''")
pid=Request("pid")
case1=""
invalid=""
error1=Request("error")
if error1=1 THEN invalid="The Information provided was incorrect.
Please try Again!"
if pid<>"" Then
Set Conn1 = Server.CreateObject("ADODB.Connection")
Conn1.Open constring
set rs= Server.CreateObject("ADODB.RecordSet")
SQL="Select * from particip where meetingid="&pid&" AND owner='"&owner&"' AND username='"&name&"'"
rs.open SQL,Conn1,3,3,1
if not RS.EOF Then
Session("status")="Guest"
Session("username")=name
mytype=rs("type")
rs.close
Conn1.close
set rs=nothing
set Conn1=Nothing
if mytype="Project" Then
Response.redirect "agenda.asp?meetingid="&pid
else
Response.redirect "survey.asp?meetingid="&pid
end if
else
Response.redirect "welcome.asp?error=1"
End if
End if
%>
<%if pid="" Then%>
Collaborate Login
collaborate 101
<%=invalid%>
<%end if%>