- Fórum WMO
- → invictus's Content
invictus's Content
There have been 52 items by invictus (Search limited from 09/06/2023)
#209404 Modificando Uma Enquete
Posted by invictus on 15/10/2003, 14:40 in PHP
O que preciso é um script que apenas compute os votos e mostre os resultados, todos que achei armazenam as perguntas tbm, o que não serve pra mim, pois o formulario vai estar no provedor nao-php. Ele vai disparar a partir de <form action="http://www.............p/enquete.php">
Se alguem tiver um script q compute apenas respostas me diga, senao vou tentar mudar um aqui.
#210133 Modificando Uma Enquete
Posted by invictus on 16/10/2003, 12:23 in PHP
O que preciso é um script que apenas compute os votos e mostre os resultados, todos que achei armazenam as perguntas tbm, o que não serve pra mim, pois o formulario vai estar no provedor nao-php. Ele vai disparar a partir de <form action="http://www.............p/enquete.php">
Se alguem tiver um script q compute apenas respostas me diga, senao vou tentar mudar um aqui.
#164278 Criar Testes Em Javascript
Posted by invictus on 07/08/2003, 17:19 in HTML, CSS e Metodologias
http://www.alito.kit...te/loucura.html
só que no meu teste eu tenho 8 perguntas com 4 opcoes cada. Cada resposta certa vale um ponto e a resposta varia de acordo com a pontuação:
1 a 2 = ruim
3 a 4 = medio
5 a 8 = bom
alguem tem sugestoes de como fazer?
#159022 Usando Msde, Não Reconhece Função Date
Posted by invictus on 31/07/2003, 17:42 in ASP
tranferi para o MSDE, só que agora um script meu não funciona, aparece o seguinte problema:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC SQL Server Driver][SQL Server]'date' is not a recognized function name.
/testartododia.asp, line 68
está dando pau na hora que executa isto aqui:
SQL = "SELECT his_type, his_year, his_title, his_desc, his_image, his_link FROM tododiadata WHERE his_day = datepart('d', date()) AND his_month = datepart('m', date()) ORDER BY his_type, his_year "
set rsGlobal = connGlobal.execute(SQL)
ou seja, preciso saber a data do sistema para chamar o respectivo registro
alguém já passou por isso? Tem idéia do que eu posso fazer?
#171244 Criar Tabela Com O Bco De Dados
Posted by invictus on 18/08/2003, 18:02 in ASP
tentei esse mas nao deu certo:
<%
'abre a conexão com banco de dados
set usuariosDB = server.CreateObject("ADODB.CONNECTION")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../dados/almanaque.mdb")
usuariosDB.Open ConStr
set tableSet = Server.CreateObject("ADODB.RecordSet")
tableSet.Open "tododiadata", usuariosDB, adOpenForwardOnly, adLockOptimistic, adCmdTable
%>
<TR>
<% p_numberOfColumns = tableSet.fields.Count
for x = 0 to (p_numberOfColumns - 1) %>
<TH><%= tableSet.Fields(x).Name %></TH>
<% next %>
</TR>
<% while not tableSet.EOF %>
<TR>
<% for col = 1 to (p_numberofColumns-1)
%> <TD>
<%= tableSet.fields(col).Value %>
</TD>
<% next %>
</TR>
<% tableSet.MoveNext
wend
tableSet.Close
%>
</TABLE>
<br>
<%
usuariosDB.Close
set usuariosDB = Nothing
end if
%>
#146606 Sistema De Combo
Posted by invictus on 16/07/2003, 17:53 in ASP
http://forum.wmonlin...=21697&hl=combo
é bem parecido, o que eu preciso é mais simples até, pois não precisa de refresh
#190960 Problemas No Select
Posted by invictus on 19/09/2003, 15:56 in ASP
<form method="post" action="tddia/tddia_search.asp">
<div align="center"><span class="conteudo">Dia:</span>
<select name="p_dia" class="conteudo">
<option value="0">__</option>
<option value="1">01</option>
<option value="2">02</option>
<option value="3">03</option>
<option value="4">04</option>
<option value="5">05</option>
<option value="6">06</option>
<option value="7">07</option>
<option value="8">08</option>
<option value="9">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select>
<span class="conteudo">Mês:</span>
<select name="p_mes" class="conteudo">
<option value="0">_________</option>
<option value="1">Janeiro</option>
<option value="2">Fevereiro</option>
<option value="3">Março</option>
<option value="4">Abril</option>
<option value="5">Maio</option>
<option value="6">Junho</option>
<option value="7">Julho</option>
<option value="8">Agosto</option>
<option value="9">Setembro</option>
<option value="10">Outubro</option>
<option value="11">Novembro</option>
<option value="12">Dezembro</option>
</select>
<input type="submit" value="OK" class="bodytxt" style="border-style: solid; border-width: 1; background-color: ffffcc" name="submit">
</div>
</form>
e esta pg para busca:
<%
p_dia = Request.Form("p_dia")
p_mes = Request.Form("p_mes")
set usuariosDB = server.createObject("ADODB.Connection")
usuariosDB.open "almanaque"
sql = "select tododiadata.his_month, "
sql = sql & "tododiadata.his_link "
sql = sql & "From tododiadata "
sql = sql & "Where tododiadata.his_month = '"& p_mes &"'"
set tddiaset = usuariosDB.Execute(sql)
while not tddiaset.EOF
Response.Write tddiaset("his_link")
tddiaset.MoveNext
wend
tddiaset.Close
set tddiaset = Nothing
usuariosDB.close
set usuariosDB = Nothing
%>
está acontecendo este erro:
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'
[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.
/almanaque/tddia/tddia_search.asp, line 15
alguem tem ideia de como posso resolver?
#183508 Problemas Com Variaveis Numa Form
Posted by invictus on 08/09/2003, 01:00 in PHP
<html>
<head>
<title> acessando dados</title>
</head>
<body>
<b>pesquisa por titulo:</b> <br>
<form method="post" action="cap9lab51.php">
titulo: <input type="text" name="txtTitulo">
<input type="submit" value="pesquisar" name="perq">
</form>
</body>
</html>
e a pg php:
<?php
//abre conexao (abreconexao.inc nao funcionou coloquei .php)
include "abreconexao.php";
//cria sentença sql
$sql = "select categorias.nomecat, livros.codlivro, livros.titulo, livros.autor, livros.preco ";
$sql = $sql . "from categorias ";
$sql = $sql . "inner join livros ";
$sql = $sql . "on categorias.codcat = livros.codcat ";
$sql = $sql . "where livros.titulo like '%$txtTitulo%' ";
//carrega registros selecionados
$rs = mysql_query($sql, $conexao) or die ("nao conseguiu efetuar consulta");
?>
<b>livros da editora<br><br></b>
<table width="700" border="1">
<?php
while ($linha = mysql_fetch_array($rs))
{
$codlivro = $linha["codlivro"];
$titulo = $linha["titulo"];
$preco = $linha["preco"];
$autor = $linha["autor"];
$nomecat = $linha["nomecat"];
?>
<td valign="top"><?php echo $codlivro; ?></td>
<td valign="top"><?php echo $titulo; ?></td>
<td valign="top"><?php echo $autor; ?></td>
<td valign="top"><?php echo $nomecat; ?></td>
<td valign="top"><?php printf ("%.2f", $preco); ?></td>
</tr>
<?php
}
mysql_free_result($rs);
mysql_close($conexao);
?>
soh que a resposta q obtenho ao pesquisar é:
Notice: Undefined variable: txtTitulo in C:\serieweb\php\cap9lab51.php on line 12
isto é , o php nao consegue achar a variavel que vem na form. alguem tem ideia do que posso fazer pra arrumar?
#91086 Validar Formulario
Posted by invictus on 04/05/2003, 02:24 in ASP
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][Driver ODBC para Microsoft Access] O campo 'veget.endereco' não pode ser uma seqüência de caracteres de comprimento zero.
#118012 Sistema De Noticias | Uma Para Cada Dia Do Mes
Posted by invictus on 12/06/2003, 15:00 in ASP
<%
'abre a conexão com banco de dados
Set noticiasDB = Server.CreateObject("ADODB.Connection")
noticiasDB.Open "DBQ=" & Server.MapPath("tab-noticias.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
data = 1
sql = "SELECT * FROM tab-noticias WHERE data_exib='"&data&"'"
Set rs = noticiasDB.Execute(sql)
%>
<%=rs("txt")%>
e o erro que deu:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na cláusula FROM.
/almanaque/noticias.asp, line 13
#79061 Problemas Com O Cdonts
Posted by invictus on 17/04/2003, 02:19 in ASP
Microsoft VBScript runtime error '800a0046'
Permission denied
/veget/send_email_veget.asp, line 69
alguém tem ideia do que pode estar errado? o site tá hospedado no websamba, há a possibilidade desse servidor não suportar o componente cdo?
------------------------------------------------------------------------------------
<%@ language="vbscript" %>
<%
'The Surf-Net e-mail script and form is written by Bruce Corkhill ©2001
'If you want your own e-mail script and form then goto 'http://www.surf-net.co.uk
'Set the response buffer to true so we execute all code before sending to the clients browser
Response.Buffer = True
'Dimension variables
Dim strBody 'Holds the body of the e-mail
Dim objCDOMail 'Holds the mail server object
Dim strMyEmailAddress 'Holds your e-mail address
Dim strCCEmailAddress 'Holds any carbon copy e-mail addresses if you want to send to more tahn on e-mail address
Dim strReturnEmailAddress 'Holds the return e-mail address of the user
'----------------- Place your e-mail address in the following sting ----------------------------------
strMyEmailAddress = "yourmail@hotmail.com"
'-----------------------------------------------------------------------------------------------------
'----------- Place Carbon Copy e-mail address's in the following sting, supporated by ; --------------
'Use this string only if you want to send the copy's of the e-mail to more than one person
strCCEmailAddress = ""
'-----------------------------------------------------------------------------------------------------
'Read in the users e-mail address
strReturnEmailAddress = Request.Form("email")
'Initialse strBody string with the body of the e-mail
strBody = "Name: " & Request.Form("nome") & vbCrLf & vbCrLf
strBody = strBody & "E-mail: " & strReturnEmailAddress & vbCrLf & vbCrLf
strBody = strBody & "Enquiry: - " & vbCrLf & Request.Form("mensagem") & vbCrLf
'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'Send the e-mail
'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent)
objCDOMail.From = Request.Form("nome") & " " & " <" & strReturnEmailAddress & ">"
'Who the e-mail is sent to
objCDOMail.To = strMyEmailAddress
'Who the carbon copies are sent to
objCDOMail.Cc = strCCEmailAddress
'The subject of the e-mail
objCDOMail.Subject = "email restaurantes vegetarianos"
'The main body of the e-amil
objCDOMail.Body = strBody
'The format the e-mail is sent in
objCDOMail.MailFormat = CdoMailFormatText 'If you want it to be in MIME(HTML) format use CdoMailFormatMIME
'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1
'Send the e-mail
objCDOMail.Send
'Close the server object
Set objCDOMail = Nothing
%>
#79935 Problemas Com O Cdonts
Posted by invictus on 18/04/2003, 16:19 in ASP
otavio: se eu entendi direito nesse script nao precisa incluir smtp. ele tá hospedado
no websamba http://www.websamba.com/veget
a linha 69 é
'Send the e-mail
objCDOMail.Send
#162956 Criar Testes Em Flash
Posted by invictus on 05/08/2003, 16:06 in Adobe Flash e ActionScript
#163609 Criar Testes Em Flash
Posted by invictus on 06/08/2003, 16:58 in Adobe Flash e ActionScript
- Fórum WMO
- → invictus's Content
- Privacy Policy
- Regras ·