La mostra o codigo de fonte:
<html> <head> <title>Acesse o seu curriculo</title> </head> <body> <center><font face="Arial" size="4"><b>Formulário de Alteração</b></h2></center> <% If IsEmpty( Request.Form("submit") ) Then Set Conexao = Server.CreateObject("ADODB.Connection") Constr = "DBQ=Z:\Inetpub\wwwroot\teste\Cadastro\cadastro.mdb;Driver={Microsoft Access Driver (*.mdb)};" Conexao.Open Constr ComandoSQL = "SELECT * FROM tblpessoa" Set bd = Server.CreateObject("ADODB.Recordset") bd.CursorLocation = 2 bd.CursorType = 0 bd.LockType = 3 bd.Open ComandoSQL, conexao,,, &H0001 If Not bd.EOF Then bd.Move Request.QueryString("n") %> <form method=post action="<%=Request.ServerVariables("script_name")%>"> <input type=hidden name="ComandoSQL" value="<%=ComandoSQL%>"> <input type=hidden name="Conexao" value="<%=Constr%>"> <table border=0 width="80%" align=center> <tr> <td align=right valign=top><font face="Arial" size="2">bairro:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="bairro" value="<%=bd("bairro")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">cpf:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="cpf" value="<%=bd("cpf")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">curriculo:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="curriculo" value="<%=bd("curriculo")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">estado:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="estado" value="<%=bd("estado")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">identidade:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="identidade" value="<%=bd("identidade")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">Logradouro:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="Logradouro" value="<%=bd("Logradouro")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">municipio:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="municipio" value="<%=bd("municipio")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">nome:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="nome" value="<%=bd("nome")%>" size=15 maxlength=20 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">senha:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=password name="senha" value="<%=bd("senha")%>" size=15 maxlength=20 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">telefone:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="telefone" value="<%=bd("telefone")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> </font> </table> <center><input type=submit name=submit value=Alterar style="{<font-family:Arial; font-size:12}"></center> <input type="hidden" name="n" value="<%if Not IsEmpty(Request.QueryString("n"))then : Response.Write Request.QueryString("n") Else : Response.Write "0" : End If%>"> </form> <center> <% If Request.QueryString("n") > 0 then Response.Write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") - 1 & "><< Anterior</a> " End If bd.MoveNext If Not bd.EOF then Response.Write " <a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") + 1 & ">Próximo >></a>" End If Conexao.Close Set bd = Nothing Set Conexao = Nothing %> </center> <% End If Else If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("bairro")) <> "" AND Trim(Request.Form("cpf")) <> "" AND Trim(Request.Form("curriculo")) <> "" AND Trim(Request.Form("estado")) <> "" AND Trim(Request.Form("identidade")) <> "" AND Trim(Request.Form("Logradouro")) <> "" AND Trim(Request.Form("municipio")) <> "" AND Trim(Request.Form("nome")) <> "" AND Trim(Request.Form("senha")) <> "" AND Trim(Request.Form("telefone")) <> "" Then Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open Request.Form("Conexao") ComandoSQL = Request.Form("ComandoSQL") Set bd = Server.CreateObject("ADODB.Recordset") bd.CursorLocation = 2 bd.CursorType = 0 bd.LockType = 3 bd.Open ComandoSQL, Conexao,,, &H0001 bd.Move Request.Form("n") bd("bairro") = Server.HTMLEncode(Request.Form("bairro")) bd("cpf") = Server.HTMLEncode(Request.Form("cpf")) bd("curriculo") = Server.HTMLEncode(Request.Form("curriculo")) bd("estado") = Server.HTMLEncode(Request.Form("estado")) bd("identidade") = Server.HTMLEncode(Request.Form("identidade")) bd("Logradouro") = Server.HTMLEncode(Request.Form("Logradouro")) bd("municipio") = Server.HTMLEncode(Request.Form("municipio")) bd("nome") = Server.HTMLEncode(Request.Form("nome")) bd("senha") = Server.HTMLEncode(Request.Form("senha")) bd("telefone") = Server.HTMLEncode(Request.Form("telefone")) bd.UpdateBatch bd.Requery %> <center></center> </body> </html>
Se tivesse suporte ele não mostraria o codigo asp no codigo de fonte...
Tente hospedar em algum que tenha suporte a ASP, ou faça em PHP
[]'s
Victor