Ir para conteúdo
Fórum CódigoFonte.net

arldin

Membros
  • Total de itens

    6
  • Registro em

  • Última visita

  1. Olha amigos baixei o WELBCALL esta tudo bem, mais eu me logo como operdaro libero operado entro como usuario mais ele so fica CONECTANDO COM O OPERADOR AQUARDE mais ele não vai Alguem pode me da um Help por favor, pois preciso muito dele Agradeço desde ja
  2. arldin

    Alguem pode me da uma informação

    Alguem poderia me informar o que eu devo colocar neste codico por favor Response.redirect("admin_main.asp?addpass="&addpass&"") Agradeço desde ja a ajuda
  3. arldin

    Pagina não pode ser exibida

    Baixei um script para atendimento on line ele roda direito no meu pc, mais quando coloco no meu site ele me da a sequinte mensagem pagina não pode ser exibida alguem pode me da um help o script para acessae e este abaixo (tenho ele todo zipado)como faço para passar para o forum <% 'Include this file on every page on your website, EXCEPT the livesupport pages 'Checks to see if the user is wanted in a chat room by the admin and updates active users table 'You will need to change DB path and name 'Set the script timeout in seconds Server.ScriptTimeout = 90 'Set Dimension Variables Dim strDataBasePath 'Holds the path to the database Dim cString 'Holds the entire connection string Dim adoCon 'Holds the ado connection Dim SQL 'Holds SQL statement Dim strIPAddress 'Holds the current users IP address Dim rs_Active_Users 'Record sheet for the active users table Dim chatwanted 'Holds 0 if admin doesnt to chat with them, 5 if the admin does Dim usrID 'Holds user ID Set adoCon = Server.CreateObject("ADODB.Connection") '------------------------------------------------------------------------------------ 'Change this value to the path of the database strDataBasePath = "chat/LiveSupport.mdb" '------------------------------------------------------------------------------------ dim USER_AGENT, IS_IE, IS_NN USER_AGENT = Request.ServerVariables("HTTP_USER_AGENT") IS_IE = InStr(USER_AGENT,"MSIE") IS_NN = InStr(USER_AGENT,"Nav") Dim strBrowser if IS_IE then strBrowser = "IE" elseif IS_NN then strBrowser = "NS" else strBrowser = "N/A" end if 'Connection string for the database 'If the following line does not work comment it out with a ' at the start of the line and uncomment another string cString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(strDataBasePath) 'Uncomment this connection string if you are using Access Database 2000 or 2002 'cString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strDataBasePath) 'Uncomment this connection string if you are using a DSN (note: DSN is slower than the above connection strings) 'cString = "DSN=NAME_OF_DSN" 'Replace the NAME_OF_DSN with the DSN 'Give the variables some values strIPAddress = Request.ServerVariables("REMOTE_ADDR") 'Set the variable to hold the value of IP address 'Open the connection to the database path specified at top of page adoCon.Open cString 'Open the active users record sheet Set rs_Active_Users = Server.CreateObject("ADODB.Recordset") 'Create a new SQL statement to select the data from the row where users IP equals IP in database strSQL = "SELECT tblActiveUsers.* From tblActiveUsers WHERE IP='" & strIPAddress & "';" 'Set the cursor and lock types rs_Active_Users.CursorType = 2 rs_Active_Users.LockType = 3 'Open the record sheets and execute the SQL statement rs_Active_Users.Open strSQL, CString 'Check the database to see if the user whos online has a field in the database, if not create one If rs_Active_Users.EOF Then 'Insert the users IP address into a new row in database strSQL = "INSERT INTO tblActiveUsers (IP, Browser) VALUES ('" & strIPAddress & "','" & strBrowser & "');" 'Write data adoCon.Execute(strSQL) 'If there is a record for the current user then update, dont create new Else 'Set new SQL statement, set the last active field to the current time strSQL = "UPDATE tblActiveUsers SET tblActiveUsers.LastActive=Now() WHERE IP='" & strIPAddress & "';" 'Write data adoCon.Execute(strSQL) End If 'Delete records older than 10 minuites, they are no longer active strSQL = "DELETE FROM tblActiveUsers WHERE tblActiveUsers.LastActive < Now() - 0.0070;" 'Write data adoCon.Execute(strSQL) 'Requery the record sheet to get data up to date rs_Active_Users.Requery 'Close n' clean! rs_Active_Users.Close Set rs_Active_Users = Nothing adoCon.close 'Open the table tblActiveUsers set rs_Active_Users = server.createobject("ADODB.RecordSet") 'Create new SQL string StrSql="SELECT * FROM tblActiveUsers WHERE IP='" & strIPAddress & "';" 'Open record sheet execute SQL string rs_Active_Users.open StrSql,cString,3,3 'Take the values from the database field and put them in the variables chatwanted = rs_Active_Users("ChatRequest") usrID = rs_Active_Users("ID") 'Close the record sheet and clean up rs_Active_Users.Close Set rs_Active_Users = Nothing %> <% 'If the field chatwanted is set to something other than 0 Then open chat automaticaly IF chatwanted <> 0 THEN %> <script language="Javascript"> pop1=window.open("chat/default.asp?q=1","pop1", "width=400, height=300, toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no, directories=no, status=no"); </script> <%ELSE%> <%END IF%> <% Dim rsStats 'Open new connection to database adoCon.Open cString 'Create new SQL string strsql="SELECT * FROM tblStats" set rsStats=server.CreateObject("ADODB.Recordset") rsStats.open strsql,adocon,3,3 Dim intCurrNum intCurrNum = rsStats.fields("PageViews") rsStats.fields("PageViews")= intCurrNum + 1 rsStats.Update %> desde ja agradeços
  4. <% sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.seudominio.com.br" cdoConfig.Fields.Item(sch & "smtpserverport") = 25 cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30 cdoConfig.Fields.Item(sch & "sendusername") = "[email protected]" cdoConfig.Fields.Item(sch & "sendpassword") = "senha do email que vai receber" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = request.Form("responder") cdoMessage.To = request.Form("destino") cdoMessage.Subject = "Formulario de Contato" strBody = "<strong><p>DADOS DA FESTA</strong>" & vbCrLf & vbCrLf & _ "<strong><p>NOME: <strong>"& Request("nome") & vbCrLf & _ "<strong>E-MAIL:<strong> "& Request("responder") & vbCrLf & _ "<strong>ASSUNTO:<strong> "& Request("assunto") & vbCrLf & _ "<strong>ESCOLHA:<strong> "& Request("escolha") & vbCrLf & _ "<strong>TEMAS: <strong>"& Request("tema") & vbCrLf & _ "<strong><p>OPCÕES DE PAGAMENTO:<strong> "& Request("pag") & vbCrLf & _ "<strong>CHEQUE NUM: "& Request("numch") & vbCrLf & _ "<strong>BANCO NUM:<strong> "& Request("bcnum") & vbCrLf & _ "<strong>CONTA NUM:<strong> "& Request("cc") & vbCrLf & _ "<strong>BOM PARA:<strong> "& Request("dta") & vbCrLf & _ "<strong> COLOQUE NOME DO ANIVERSARIANTE,LOCAL DA FESTA.PARA OS CONVITES:<strong><p> "& Request("mensagem") strBody = strBody & "." cdoMessage.HTMLBody = strBody cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing response.write "O e-mail foi processado e enviado com sucesso" %> Amigos eu gostaria de saber se e posivel colocar depois desta mensagem de envio de Email ele seguise para outra pagina Por Exemplo response Redirect "http://www.index.asp"
×
×
  • Criar Novo...