<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Response.Expires = 0
Dim strConnString : strConnString = session.contents("strConnString")
Dim conn, rs

On Error Resume Next
Server.Execute("inc_lang_eng.asp")
%>
<!--#include file="config.asp"-->

<html>
<head>
<title>Matrimonials, Indian Matrimonial - findyourfate.com marriage website</title>

<link href="styles.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {font-size: 14pt}
.style2 {
	color: #FF0000;
}
.style3 {
	color: #FFFFFF;
	font-weight: bold;
}
-->
</style>

</head>
<body  bgcolor="#e3e8d2">

<%
Dim varError : varError = Request.QueryString("Error")

if request("mode")="chat" then
		Dim varEmoticons : varEmoticons = request.Form("emoticons")
		if varEmoticons = "on" then 
			varEmoticons = True
			end if
			Set rs=Server.CreateObject("ADODB.recordset")
		
	rs.open "SELECT * FROM setup",strConnString,3,2

		rs.addnew
		rs("IDLETIME")=2
		rs("KICKOUTTIME")=10
		rs("MESSAGESCROLL")="Bottom"
		rs("USERCONTROLSCROLL")=true
		rs("MESSAGENUMBER")=10
		rs("ALLOWEMOTICONS")= varEmoticons
		rs("MESSAGEREFRESHDELAY")=2
		rs("USERREFRESHDELAY")=60
		rs("LANGUAGE")=varLanguage
		rs("chatname")=request("userid")
		rs("chatimage")=varChatImage
		
		
	rs.update
	
	
	
		
		
		
	Set rs1=Server.CreateObject("ADODB.recordset")
		
	rs1.open "SELECT * FROM users",strConnString,3,2

		rs1.addnew
		rs1("username")=request("userid")
		rs1("roomid")=rs2("roomid")
		rs1("LOGGEDON")=now()
		rs1("chatname")=request("chatid")
	rs1.update
	response.redirect "chat.asp?id="&request("id")&"&chatid="&request("chatid")
	end if
if varError = "session" then
	Response.write("<em>" & application("lang_setup_43") & "</em>")
	Response.write("<p>" & application("lang_setup_44"))
	Response.write("<p>" & application("lang_setup_45") & "<br />")
	Response.Write(application("lang_setup_46"))
end if
%>

	<form name="form1" method="post" action="setup.asp?mode=chat" >
	  <!--#include file="includes/connect.asp"-->

	  <% 
Set rs1 = Server.CreateObject("ADODB.recordset")
 Set rs=Server.CreateObject("ADODB.recordset")
rs1.Open "SELECT * FROM tbl_user where user_id_pk="&request("id")&"",cn, 3,2
if rs1.eof<>true then%>

 <input type="hidden" name="userid" value=<%=rs1("loginname")%>>
<%
end if
rs.Open "SELECT * FROM tbl_user where user_id_pk="&request("chatid")&"",cn, 3,2
if rs.eof<>true then%>
	  <input type="hidden" name="chatid" value=<%=rs("loginname")%>>

<%end if%>
	 
	 
 

	<table border="1" bgcolor="#FF0000" cellpadding="2" cellspacing="0" bordercolor="#FF0000">
	  <tr>
	  <td><span class="style3"><%=application("lang_setup_31")%></span></td>
	  </tr>
	  </table><hr align="left" width="50%" size="2" noshade class="style2" style="margin-top:-8px; margin-bottom: -5px" />
	<table  border="0" cellspacing="0" cellpadding="3">
		<tr>
		  <td><strong><%=application("lang_setup_33")%></strong><br />
			<em><%=application("lang_setup_34")%></em> </td>
		  <td><input type="hidden" name="emoticons" value="on" /></td>
		</tr>
		<tr>
		
		  <td><input type="hidden" name="language"  value="English" />		 </td>
		</tr>
		<tr>
		  <td><strong><%=application("lang_setup_37")%></strong></td>
		  <td>
		 <%  set RS11=server.CreateObject("ADODB.Recordset")
		 
		%>	
		  
	 <input type="text" name="chatname" class="input"  value=<%=loginname%>  readonly="true"></td>
		</tr>
		<tr>
		  
		  <td><input type="hidden" name="chatimage" class="input" /></td>
		</tr>
		<tr>
		  <td>
		   <input type="hidden" name="chatemail" class="input" value=<%=session("email")%>  >	
		   <input type="hidden" name="room" class="input" value="matrimonial">	 </td>
		</tr>
	  </table>
	<p align='center'>
	  <input type="submit" name="Submit" value="<%=application("lang_setup_40")%>" class="inputbtn" />
	</p>
	</form>
	
	

</body>
</html>
