Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Rodrigo F.

Como criar uma condição de cadastro?

Por , em ASP Clássico

Recommended Posts

Rodrigo F.    0

Rodrigo F.
Postado

Código completo atualmente:

 

<%
Const EW_PAGE_ID = "add"
Const EW_TABLE_NAME = "filme"
%>
<!--#include file="ewcfg60.asp"-->
<!--#include file="filmeinfo.asp"-->
<!--#include file="generoinfo.asp"-->
<!--#include file="aspfn60.asp"-->
<!--#include file="userfn60.asp"-->
<%
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", "private, no-cache, no-store, must-revalidate"
%>
<%

' Open connection to the database
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open EW_DB_CONNECTION_STRING
%>
<%

' Common page loading event (in userfn60.asp)
Call Page_Loading()
%>
<%

' Page load event, used in current page
Call Page_Load()
%>
<%
Response.Buffer = True

' Load key values from QueryString
Dim bCopy
bCopy = True
If Request.QueryString("id_filme").Count > 0 Then
	filme.id_filme.QueryStringValue = Request.QueryString("id_filme")
Else
	bCopy = False
End If

' Create form object
Dim objForm
Set objForm = ew_GetUploadObj()

' Process form if post back
If objForm.GetValue("a_add")&"" <> "" Then
	filme.CurrentAction = objForm.GetValue("a_add") ' Get form action
	Call GetUploadFiles() ' Get upload files
	Call LoadFormValues() ' Load form values

' Not post back
Else
	If bCopy Then
		filme.CurrentAction = "C" ' Copy Record
	Else
		filme.CurrentAction = "I" ' Display Blank Record
		Call LoadDefaultValues() ' Load default values
	End If
End If

' Close form object
Set objForm = Nothing

' Perform action based on action code
Select Case filme.CurrentAction
	Case "I" ' Blank record, no action required
	Case "C" ' Copy an existing record
		If Not LoadRow() Then ' Load record based on key
			Session(EW_SESSION_MESSAGE) = "Registros nao encontrados" ' No record found
			Call Page_Terminate(filme.ReturnUrl) ' Clean up and return
		End If
	Case "A" ' Add new record
		filme.SendEmail = True ' Send email on add success
		If AddRow() Then ' Add successful
			Session(EW_SESSION_MESSAGE) = "Registro Adicionado com Sucesso" ' Set up success message
			Call Page_Terminate(filme.KeyUrl(filme.ReturnUrl, "")) ' Clean up and return
		Else
			Call RestoreFormValues() ' Add failed, restore form values
		End If
End Select

' Render row based on row type
filme.RowType = EW_ROWTYPE_ADD ' add ' Render add type
Call RenderRow()
%>

[b]<%
verifica = "SELECT * FROM filme WHERE titulo = '%"&Request.Form("x_titulo")&"%'"
Response.Write(verifica)
Set RS1 = conn.Execute(verifica)
If not RS1.EOF Then
   Response.Write "Filme já cadastrado!!!!</br>Para tentar novamente clique <a a href=java script:history.go(-1) target=_self>AQUI</a>."
  Response.End
Else
  gravar = "INSERT INTO filme(titulo) values('"&Request.Form("x_titulo")&"')"
  set RS2 = conn.Execute(gravar)
  Response.Write("Filme Cadastrado com Sucesso.")
End If
%>[/b]
<!--#include file="header.asp"-->
<script type="text/javascript">
<!--
var EW_PAGE_ID = "add"; // Page id
//-->
</script>
<script type="text/javascript">
<!--
function ew_ValidateForm(fobj) {
	if (fobj.a_confirm && fobj.a_confirm.value == "F")
		return true;
	var i, elm, aelm, infix;
	var rowcnt = (fobj.key_count) ? Number(fobj.key_count.value) : 1;
	for (i=0; i<rowcnt; i++) {
		infix = (fobj.key_count) ? String(i+1) : "";
		elm = fobj.elements["x" + infix + "_id_genero"];
		if (elm && !ew_HasValue(elm)) {
			if (!ew_OnError(elm, "Preencha o valor para o campo - Categoria"))
				return false;
		}
		elm = fobj.elements["x" + infix + "_titulo"];
		if (elm && !ew_HasValue(elm)) {
			if (!ew_OnError(elm, "Preencha o valor para o campo - Título"))
				return false;
		}
		elm = fobj.elements["x" + infix + "_sinopse"];
		if (elm && !ew_HasValue(elm)) {
			if (!ew_OnError(elm, "Preencha o valor para o campo - Sinopse"))
				return false;
		}
		elm = fobj.elements["x" + infix + "_diretor"];
		if (elm && !ew_CheckFileType(elm.value)) { 
			if (!ew_OnError(elm, "File type is not allowed.")) 
				return false; 
		}
		elm = fobj.elements["x" + infix + "_locacao"];
		if (elm && !ew_CheckInteger(elm.value)) {
			if (!ew_OnError(elm, "Incorrect integer - Locaçao"))
				return false;
		}
		elm = fobj.elements["x" + infix + "_quantidade"];
		if (elm && !ew_CheckInteger(elm.value)) {
			if (!ew_OnError(elm, "Incorrect integer - Qtd"))
				return false;
		}
	}
	return true;
}
//-->
</script>
<script type="text/javascript">
<!--
var ew_DHTMLEditors = [];
//-->
</script>
<script type="text/javascript">
<!--
var ew_MultiPagePage = "Page"; // multi-page Page Text
var ew_MultiPageOf = "of"; // multi-page Of Text
var ew_MultiPagePrev = "Prev"; // multi-page Prev Text
var ew_MultiPageNext = "Next"; // multi-page Next Text
//-->
</script>
<script language="JavaScript" type="text/javascript">
<!--
// Write your client script here, no need to add script tags.
// To include another .js script, use:
// ew_ClientScriptInclude("my_javascript.js"); 
//-->
</script>
<p><span class="aspmaker" style="font-weight:bold">Adicionar: Filmes - Listagem<br><br><a href="<%= filme.ReturnUrl %>"><img src="images/voltar.gif" border="0"></a></span></p>
<%
If Session(EW_SESSION_MESSAGE) <> "" Then ' Mesasge in Session, display
%>
<p><span class="ewmsg"><%= Session(EW_SESSION_MESSAGE) %></span></p>
<%
	Session(EW_SESSION_MESSAGE) = "" ' Clear message in Session
End If
%>
<form name="ffilmeadd" id="ffilmeadd" action="filmeadd.asp" method="post" enctype="multipart/form-data" onSubmit="return ew_ValidateForm(this);">
<p>
<input type="hidden" name="a_add" id="a_add" value="A">
<table class="ewTable">
	<tr class="ewTableRow">
		<td class="ewTableHeader">Categoria<span class='ewmsg'> *</span></td>
		<td<%= filme.id_genero.CellAttributes %>><span id="cb_x_id_genero">
<% If filme.id_genero.SessionValue <> "" Then %>
<div<%= filme.id_genero.ViewAttributes %>><%= filme.id_genero.ViewValue %></div>
<input type="hidden" id="x_id_genero" name="x_id_genero" value="<%= filme.id_genero.CurrentValue %>">
<% Else %>
<select id='x_id_genero' name='x_id_genero'<%= filme.id_genero.EditAttributes %>>
<!--option value=''>Selecione</option-->
<%
If IsArray(filme.id_genero.EditValue) Then
	arwrk = filme.id_genero.EditValue
	For rowcntwrk = 0 To UBound(arwrk, 2)
		If arwrk(0, rowcntwrk)&"" = filme.id_genero.CurrentValue&"" Then
			selwrk = " selected"
		Else
			selwrk = ""
		End If
%>
<option value="<%= Server.HtmlEncode(arwrk(0, rowcntwrk)&"") %>"<%= selwrk %>>
<%= arwrk(1, rowcntwrk) %></option>
<%
	Next
End If
%>
</select>
<% End If %>
</span></td>
	</tr>
	<tr class="ewTableAltRow">
		<td class="ewTableHeader">Título<span class='ewmsg'> *</span></td>
		<td<%= filme.titulo.CellAttributes %>><span id="cb_x_titulo">
<input type="text" name="x_titulo" id="x_titulo" title="" size="50" maxlength="255" value="<%= filme.titulo.EditValue %>"<%= filme.titulo.EditAttributes %>>
</span></td>
	</tr>
	<tr class="ewTableRow">
		<td class="ewTableHeader">Sinopse<span class='ewmsg'> *</span></td>
		<td<%= filme.sinopse.CellAttributes %>><span id="cb_x_sinopse">
<textarea name="x_sinopse" id="x_sinopse" cols="60" rows="8"<%= filme.sinopse.EditAttributes %>><%= filme.sinopse.EditValue %></textarea>
</span></td>
	</tr>
	<tr class="ewTableAltRow">
		<td class="ewTableHeader">Tipo</td>
		<td<%= filme.lancamento.CellAttributes %>><span id="cb_x_lancamento">
<select id='x_lancamento' name='x_lancamento'<%= filme.lancamento.EditAttributes %>>
<!--option value=''>Selecione</option-->
<%
If IsArray(filme.lancamento.EditValue) Then
	arwrk = filme.lancamento.EditValue
	For rowcntwrk = 0 To UBound(arwrk, 2)
		If arwrk(0, rowcntwrk)&"" = filme.lancamento.CurrentValue&"" Then
			selwrk = " selected"
		End If
%>
<option value="<%= Server.HtmlEncode(arwrk(0, rowcntwrk)&"") %>" selected="selected"<%= selwrk %>>
<%= arwrk(1, rowcntwrk) %></option>
<%
	Next
End If
%>
</select>
</span></td>
	</tr>
	</table>
<p>
<input type="submit" name="btnAction" id="btnAction" value="	Gravar   ">
</form>
<!--#include file="footer.asp"-->
<script language="JavaScript" type="text/javascript">
<!--
// Write your table-specific startup script here
// document.write("page loaded");
//-->
</script>
<%

' If control is passed here, simply terminate the page without redirect
Call Page_Terminate("")

' -----------------------------------------------------------------
'  Subroutine Page_Terminate
'  - called when exit page
'  - clean up ADO connection and objects
'  - if url specified, redirect to url, otherwise end response
'
Sub Page_Terminate(url)

	' Page unload event, used in current page
	Call Page_Unload()

	' Global page unloaded event (in userfn60.asp)
	Call Page_Unloaded()
	conn.Close ' Close Connection
	Set conn = Nothing
	Set filme = Nothing

	' Go to url if specified
	If url <> "" Then
		Response.Clear
		Response.Redirect url
	End If

	' Terminate response
	Response.End
End Sub

'
'  Subroutine Page_Terminate (End)
' ----------------------------------------

%>
<%

' Function Get upload files
Function GetUploadFiles()

	' Get upload data
		filme.diretor.Upload.Index = objForm.Index
		If filme.diretor.Upload.UploadFile() Then

			' No action required
		Else
			Response.Write filme.diretor.Upload.Message
			Response.End
		End If
End Function
%>
<%

' Load default values
Function LoadDefaultValues()
	filme.diretor.CurrentValue = Null ' Clear file related field
	filme.lancamento.CurrentValue = 0
	filme.locacao.CurrentValue = 0
	filme.quantidade.CurrentValue = 0
End Function
%>
<%

' Load form values
Function LoadFormValues()

	' Load from form
	filme.id_genero.FormValue = objForm.GetValue("x_id_genero")
	filme.titulo.FormValue = objForm.GetValue("x_titulo")
	filme.sinopse.FormValue = objForm.GetValue("x_sinopse")
	filme.atores.FormValue = objForm.GetValue("x_atores")
	filme.lancamento.FormValue = objForm.GetValue("x_lancamento")
	filme.locacao.FormValue = objForm.GetValue("x_locacao")
	filme.quantidade.FormValue = objForm.GetValue("x_quantidade")
End Function

' Restore form values
Function RestoreFormValues()
	filme.id_genero.CurrentValue = filme.id_genero.FormValue
	filme.titulo.CurrentValue = filme.titulo.FormValue
	filme.sinopse.CurrentValue = filme.sinopse.FormValue
	filme.atores.CurrentValue = filme.atores.FormValue
	filme.lancamento.CurrentValue = filme.lancamento.FormValue
	filme.locacao.CurrentValue = filme.locacao.FormValue
	filme.quantidade.CurrentValue = filme.quantidade.FormValue
End Function
%>
<%

' Load row based on key values
Function LoadRow()
	Dim rs, sSql, sFilter
	sFilter = filme.SqlKeyFilter
	If Not IsNumeric(filme.id_filme.CurrentValue) Then
		LoadRow = False ' Invalid key, exit
		Exit Function
	End If
	sFilter = Replace(sFilter, "@id_filme@", ew_AdjustSql(filme.id_filme.CurrentValue)) ' Replace key value

	' Call Row Selecting event
	Call filme.Row_Selecting(sFilter)

	' Load sql based on filter
	filme.CurrentFilter = sFilter
	sSql = filme.SQL
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open sSql, conn
	If rs.Eof Then
		LoadRow = False
	Else
		LoadRow = True
		rs.MoveFirst
		Call LoadRowValues(rs) ' Load row values

		' Call Row Selected event
		Call filme.Row_Selected(rs)
	End If
	rs.Close
	Set rs = Nothing
End Function

' Load row values from recordset
Sub LoadRowValues(rs)
	filme.id_filme.DbValue = rs("id_filme")
	filme.id_genero.DbValue = rs("id_genero")
	filme.dia.DbValue = rs("dia")
	filme.mes.DbValue = rs("mes")
	filme.ano.DbValue = rs("ano")
	filme.titulo.DbValue = rs("titulo")
	filme.titulo_original.DbValue = rs("titulo_original")
	filme.sinopse.DbValue = rs("sinopse")
	filme.atores.DbValue = rs("atores")
	filme.diretor.Upload.DbValue = rs("diretor")
	filme.extra.DbValue = rs("extra")
	filme.informacoes.DbValue = rs("informacoes")
	filme.lancamento.DbValue = rs("lancamento")
	filme.locacao.DbValue = rs("locacao")
	filme.quantidade.DbValue = rs("quantidade")
	filme.regiao.DbValue = rs("regiao")
End Sub
%>
<%

' Render row values based on field settings
Sub RenderRow()

	' Call Row Rendering event
	Call filme.Row_Rendering()

	' Common render codes for all row types
	' id_genero

	filme.id_genero.CellCssStyle = ""
	filme.id_genero.CellCssClass = ""

	' titulo
	filme.titulo.CellCssStyle = ""
	filme.titulo.CellCssClass = ""

	' sinopse
	filme.sinopse.CellCssStyle = ""
	filme.sinopse.CellCssClass = ""

	' atores
	filme.atores.CellCssStyle = ""
	filme.atores.CellCssClass = ""

	' diretor
	filme.diretor.CellCssStyle = ""
	filme.diretor.CellCssClass = ""

	' lancamento
	filme.lancamento.CellCssStyle = ""
	filme.lancamento.CellCssClass = ""

	' locacao
	filme.locacao.CellCssStyle = ""
	filme.locacao.CellCssClass = ""

	' quantidade
	filme.quantidade.CellCssStyle = ""
	filme.quantidade.CellCssClass = ""
	If filme.RowType = EW_ROWTYPE_VIEW Then ' View row
	ElseIf filme.RowType = EW_ROWTYPE_ADD Then ' Add row

		' id_genero
		filme.id_genero.EditCustomAttributes = ""
		If filme.id_genero.SessionValue <> "" Then
			filme.id_genero.CurrentValue = filme.id_genero.SessionValue
		If Not IsNull(filme.id_genero.CurrentValue) And filme.id_genero.CurrentValue <> "" Then
			sSqlWrk = "SELECT [genero] FROM [genero] WHERE [codigo] = " & ew_AdjustSql(filme.id_genero.CurrentValue) & ""
			Set rswrk = conn.Execute(sSqlWrk)
			If Not rswrk.Eof Then
				filme.id_genero.ViewValue = rswrk("genero")
			Else
				filme.id_genero.ViewValue = filme.id_genero.CurrentValue
			End If
			rswrk.Close
			Set rswrk = Nothing
		Else
			filme.id_genero.ViewValue = Null
		End If
		filme.id_genero.CssStyle = ""
		filme.id_genero.CssClass = ""
		filme.id_genero.ViewCustomAttributes = ""
		Else
		sSqlWrk = "SELECT [codigo], [genero] FROM [genero]"
		Set rswrk = Server.CreateObject("ADODB.Recordset")
		rswrk.Open sSqlWrk, conn
		If Not rswrk.Eof Then
			arwrk = rswrk.GetRows
		Else
			arwrk = ""
		End If
		rswrk.Close
		Set rswrk = Nothing
		arwrk = ew_AddItemToArray(arwrk, 0, Array("", "Selecione"))
		filme.id_genero.EditValue = arwrk
		End If

		' titulo
		filme.titulo.EditCustomAttributes = ""
		filme.titulo.EditValue = ew_HtmlEncode(filme.titulo.CurrentValue)

		' sinopse
		filme.sinopse.EditCustomAttributes = ""
		filme.sinopse.EditValue = filme.sinopse.CurrentValue

		' atores
		filme.atores.EditCustomAttributes = ""
		filme.atores.EditValue = ew_HtmlEncode(filme.atores.CurrentValue)

		' diretor
		filme.diretor.EditCustomAttributes = ""
		filme.diretor.EditValue = filme.diretor.CurrentValue

		' lancamento
		filme.lancamento.EditCustomAttributes = ""
		Redim arwrk(1, 3)
		arwrk(0, 1) = "1"
		arwrk(1, 1) = "Lançamento"
		arwrk(0, 2) = "2"
		arwrk(1, 2) = "Box/Series"
		arwrk(0, 3) = "3"
		arwrk(1, 3) = "Acervo"
		arwrk = ew_AddItemToArray(arwrk, 0, Array("", "Selecione"))
		filme.lancamento.EditValue = arwrk

		' locacao
		filme.locacao.EditCustomAttributes = ""
		filme.locacao.EditValue = filme.locacao.CurrentValue

		' quantidade
		filme.quantidade.EditCustomAttributes = ""
		filme.quantidade.EditValue = filme.quantidade.CurrentValue
	ElseIf filme.RowType = EW_ROWTYPE_EDIT Then ' Edit row
	ElseIf filme.RowType = EW_ROWTYPE_SEARCH Then ' Search row
	End If

	' Call Row Rendered event
	Call filme.Row_Rendered()
End Sub
%>
<%

' Add record
Function AddRow()
	On Error Resume Next
	Dim rs, sSql, sFilter
	Dim rsnew
	Dim bCheckKey, sSqlChk, sWhereChk, rsChk
	Dim bInsertRow

	' Check for duplicate key
	bCheckKey = True
	sFilter = filme.SqlKeyFilter
	If filme.id_filme.CurrentValue = "" Or IsNull(filme.id_filme.CurrentValue) Then
		bCheckKey = False
	Else
		sFilter = Replace(sFilter, "@id_filme@", ew_AdjustSql(filme.id_filme.CurrentValue)) ' Replace key value
	End If
	If Not IsNumeric(filme.id_filme.CurrentValue) Then
		bCheckKey = False
	End If
	If bCheckKey Then
		Set rsChk = filme.LoadRs(sFilter)
		If Not (rsChk Is Nothing) Then
			Session(EW_SESSION_MESSAGE) = "Duplicate value for primary key"
			rsChk.Close
			Set rsChk = Nothing
			AddRow = False
			Exit Function
		End If
	End If

	' Add new record
	sFilter = "(0 = 1)"
	filme.CurrentFilter = sFilter
	sSql = filme.SQL
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.CursorLocation = EW_CURSORLOCATION
	rs.Open sSql, conn, 1, 2
	rs.AddNew
	If Err.Number <> 0 Then
		Session(EW_SESSION_MESSAGE) = Err.Description
		rs.Close
		Set rs = Nothing
		AddRow = False
		Exit Function
	End If

	' Field id_genero
	Call filme.id_genero.SetDbValue(filme.id_genero.CurrentValue, Null)
	rs("id_genero") = filme.id_genero.DbValue

	' Field titulo
	Call filme.titulo.SetDbValue(filme.titulo.CurrentValue, Null)
	rs("titulo") = filme.titulo.DbValue

	' Field sinopse
	Call filme.sinopse.SetDbValue(filme.sinopse.CurrentValue, Null)
	rs("sinopse") = filme.sinopse.DbValue

	' Field atores
	Call filme.atores.SetDbValue(filme.atores.CurrentValue, Null)
	rs("atores") = filme.atores.DbValue

	' Field diretor
	Call filme.diretor.Upload.SaveToSession() ' Save file value to Session
	filme.diretor.Upload.DbValue = rs("diretor") ' Get original value
	If IsNull(filme.diretor.Upload.Value) Then
		rs("diretor") = Null
	Else
		rs("diretor") = ew_UploadFileNameEx(ew_UploadPathEx(True, "../dvd/"), filme.diretor.Upload.FileName)
	End If
	filme.diretor.ImageWidth = 138 ' Resize width
	filme.diretor.ImageHeight = 195 ' Resize height

	' Field lancamento
	Call filme.lancamento.SetDbValue(filme.lancamento.CurrentValue, Null)
	rs("lancamento") = filme.lancamento.DbValue

	' Field locacao
	Call filme.locacao.SetDbValue(filme.locacao.CurrentValue, Null)
	rs("locacao") = filme.locacao.DbValue

	' Field quantidade
	Call filme.quantidade.SetDbValue(filme.quantidade.CurrentValue, Null)
	rs("quantidade") = filme.quantidade.DbValue

	' Check recordset update error
	If Err.Number <> 0 Then
		Session(EW_SESSION_MESSAGE) = Err.Description
		rs.Close
		Set rs = Nothing
		AddRow = False
		Exit Function
	End If

	' Call Row Inserting event
	bInsertRow = filme.Row_Inserting(rs)
	If bInsertRow Then

		' Field diretor
		If Not IsNull(filme.diretor.Upload.Value) Then
			Call filme.diretor.Upload.RestoreFromSession() ' Restore original value
			Call filme.diretor.Upload.Resize(filme.diretor.ImageWidth, filme.diretor.ImageHeight, 1)
		End If
		If Not IsNull(filme.diretor.Upload.Value) Then Call ew_SaveFile(ew_UploadPathEx(True, "../dvd/"), rs("diretor"), filme.diretor.Upload.Value)

		' Clone new rs object
		Set rsnew = ew_CloneRs(rs)
		rs.Update
		If Err.Number <> 0 Then
			Session(EW_SESSION_MESSAGE) = Err.Description
			AddRow = False
		Else
			AddRow = True
		End If
	Else
		rs.CancelUpdate
		If filme.CancelMessage <> "" Then
			Session(EW_SESSION_MESSAGE) = filme.CancelMessage
			filme.CancelMessage = ""
		Else
			Session(EW_SESSION_MESSAGE) = "Insert cancelled"
		End If
		AddRow = False
	End If
	rs.Close
	Set rs = Nothing
	If AddRow Then
		filme.id_filme.DbValue = rsnew("id_filme")

		' Call Row Inserted event
		Call filme.Row_Inserted(rsnew)
	End If

	' Field diretor
	Call filme.diretor.Upload.RemoveFromSession() ' Remove file value from Session
	If IsObject(rsnew) Then
		rsnew.Close
		Set rsnew = Nothing
	End If
End Function
%>
<%

' Page Load event
Sub Page_Load()

'***Response.Write "Page Load"
End Sub

' Page Unload event
Sub Page_Unload()

'***Response.Write "Page Unload"
End Sub
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

O que apareceu aqui

 

Response.Write(verifica)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rodrigo F.    0

Rodrigo F.
Postado

O problema ta justamente nisso, ele simplesmente ta dando erro pq está verificando os dados antes mesmo de serem digitados, tem de mudar no código q seja verificado após o "post" se tiver tudo ok, ele permite.. se não tiver ele bloqueia.. como nos formulários que temos de cadastro em fóruns entende?

 

Quando acesso o arquivo no servidor para fazer 1 cadastro ele da erro:

 

SELECT * FROM filme WHERE titulo = '%%'

Microsoft JET Database Engine error '80004005'

The field 'filme.sinopse' cannot contain a Null value because the Required property for this field is set to True. Enter a value in this field.

/amv1a/admin/filmeadd.asp, line 100

Mais eu não tenho tanta experiencia com isso, estou realmente aprendendo agora e mexer com asp, e certos questionamentos nem sei como responder :\

 

Peço desculpas por estar tomando o tempo de todos e não ter muito a oferecer ainda.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

isso nao pode mesmo

 

voce precisa fazer de forma com que seja passado para a outra pagina o vamor do titulo

 

e nesta pagina voce testa apra ver se ja tem

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rodrigo F.    0

Rodrigo F.
Postado

É isso que estou tentando fazer... Mais ainda não tenho uma base suficientemente boa para tal mudança...

 

Então pensei em criar uma condição, pois preciso muito dela para evitar maiores problemas e depois vou poder estudar com mais tranquilidade para fazer outras alterações que ainda quero.

 

Para você ter uma ideia, ainda estamos fazendo os cadastros em 2 etapas.. Uma o cadastro básico e depois disso faço o upload, separadamente, da capa para o titulo. Usando 2 páginas distintas.. E eu sei que é possivel fazer tudo em uma página só.

 

Atualmente estou com essa página que te passei de cadastro e uma de upload:

 

<%
Const EW_PAGE_ID = "view"
Const EW_TABLE_NAME = "filme"
%>
<!--#include file="ewcfg60.asp"-->
<!--#include file="filmeinfo.asp"-->
<!--#include file="generoinfo.asp"-->
<!--#include file="aspfn60.asp"-->
<!--#include file="userfn60.asp"-->
<%
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", "private, no-cache, no-store, must-revalidate"
%>
<%

' Open connection to the database
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open EW_DB_CONNECTION_STRING
%>
<%

' Common page loading event (in userfn60.asp)
Call Page_Loading()
%>
<%

' Page load event, used in current page
Call Page_Load()
%>
<%
Response.Buffer = True
If Request.QueryString("id_filme").Count > 0 Then
	filme.id_filme.QueryStringValue = Request.QueryString("id_filme")
Else
	Call Page_Terminate("filmelist.asp") ' Return to list page
End If

' Get action
If Request.Form("a_view").Count > 0 Then
	filme.CurrentAction = Request.Form("a_view")
Else
	filme.CurrentAction = "I"	' Display form
End If
Select Case filme.CurrentAction
	Case "I" ' Get a record to display
		If Not LoadRow() Then ' Load record based on key
			Session(EW_SESSION_MESSAGE) = "Registros nao encontrados" ' Set no record message
			Call Page_Terminate("filmelist.asp") ' Return to list
		End If
End Select

' Set return url
filme.ReturnUrl = "filmeview.asp"

' Render row
filme.RowType = EW_ROWTYPE_VIEW
Call RenderRow()
%>
<!--#include file="header.asp"-->
<script type="text/javascript">
<!--
var EW_PAGE_ID = "view"; // Page id
//-->
</script>
<script language="JavaScript" type="text/javascript">
<!--
// Write your client script here, no need to add script tags.
// To include another .js script, use:
// ew_ClientScriptInclude("my_javascript.js"); 
//-->
</script>
<p><span class="aspmaker" style="font-weight:bold">View Filmes - Listagem
<br><br>
<a href="filmelist.asp"><img src="images/voltar.gif" border="0" /></a> 
<a href="filmeadd.asp"><img src="images/add.gif" border="0" /></a> 
<a href="<%= filme.EditUrl %>"><img src="images/edit.gif" border="0" /></a> 
<a href="<%= filme.DeleteUrl %>"><img src="images/excluir.gif" border="0" /></a> 
</span>
</p>
<%
If Session(EW_SESSION_MESSAGE) <> "" Then
%>
<p><span class="ewmsg"><%= Session(EW_SESSION_MESSAGE) %></span></p>
<%
	Session(EW_SESSION_MESSAGE) = "" ' Clear message
End If
%>
<p>
<form action="UploadDVD.asp?id_filme=<%= Request.QueryString("id_filme") %>" method="post" enctype="multipart/form-data" name="form1" id="form1">
  <table border="0" cellspacing="1" cellpadding="4" bgcolor="#CCCCCC">
	<tr>
	  <td bgcolor="#CC9966"><span class="aspmaker1" style="color: #FFFFFF;; font-weight: bold">Imagem</span></td>
	  <td bgcolor="#F5F5F5"><input name="file" type="file" class="aspmaker1" id="file" size="60"/></td>
	</tr>
  </table>
  <p>
	<label>
	  <input type="submit" name="button" id="button" value="ENVIAR IMAGEM" />
	  </label>
  </p>
</form>
<table class="ewTable">
	<tr class="ewTableRow">
		<td class="ewTableHeader">Categoria</td>
		<td<%= filme.id_genero.CellAttributes %>>
<div<%= filme.id_genero.ViewAttributes %>><%= filme.id_genero.ViewValue %></div>
</td>
	</tr>
	<tr class="ewTableAltRow">
		<td class="ewTableHeader">Título</td>
		<td<%= filme.titulo.CellAttributes %>>
<div<%= filme.titulo.ViewAttributes %>><%= filme.titulo.ViewValue %></div>
</td>
	</tr>
	<tr class="ewTableAltRow">
		<td class="ewTableHeader">Capa</td>
		<td<%= filme.diretor.CellAttributes %>><img src="../dvd/grd/<%= Request.QueryString("id_filme") %>.jpg" /></td>
	</tr>
	<tr class="ewTableRow">
		<td class="ewTableHeader">Tipo</td>
		<td<%= filme.lancamento.CellAttributes %>>
<div<%= filme.lancamento.ViewAttributes %>><%= filme.lancamento.ViewValue %></div>
</td>
	</tr>
	</table>
<p>
<!--#include file="footer.asp"-->
<script language="JavaScript" type="text/javascript">
<!--
// Write your table-specific startup script here
// document.write("page loaded");
//-->
</script>
<%

' If control is passed here, simply terminate the page without redirect
Call Page_Terminate("")

' -----------------------------------------------------------------
'  Subroutine Page_Terminate
'  - called when exit page
'  - clean up ADO connection and objects
'  - if url specified, redirect to url, otherwise end response
'
Sub Page_Terminate(url)

	' Page unload event, used in current page
	Call Page_Unload()

	' Global page unloaded event (in userfn60.asp)
	Call Page_Unloaded()
	conn.Close ' Close Connection
	Set conn = Nothing
	Set filme = Nothing

	' Go to url if specified
	If url <> "" Then
		Response.Clear
		Response.Redirect url
	End If

	' Terminate response
	Response.End
End Sub

'
'  Subroutine Page_Terminate (End)
' ----------------------------------------

%><%

' Load row based on key values
Function LoadRow()
	Dim rs, sSql, sFilter
	sFilter = filme.SqlKeyFilter
	If Not IsNumeric(filme.id_filme.CurrentValue) Then
		LoadRow = False ' Invalid key, exit
		Exit Function
	End If
	sFilter = Replace(sFilter, "@id_filme@", ew_AdjustSql(filme.id_filme.CurrentValue)) ' Replace key value

	' Call Row Selecting event
	Call filme.Row_Selecting(sFilter)

	' Load sql based on filter
	filme.CurrentFilter = sFilter
	sSql = filme.SQL
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open sSql, conn
	If rs.Eof Then
		LoadRow = False
	Else
		LoadRow = True
		rs.MoveFirst
		Call LoadRowValues(rs) ' Load row values

		' Call Row Selected event
		Call filme.Row_Selected(rs)
	End If
	rs.Close
	Set rs = Nothing
End Function

' Load row values from recordset
Sub LoadRowValues(rs)
	filme.id_filme.DbValue = rs("id_filme")
	filme.id_genero.DbValue = rs("id_genero")
	filme.dia.DbValue = rs("dia")
	filme.mes.DbValue = rs("mes")
	filme.ano.DbValue = rs("ano")
	filme.titulo.DbValue = rs("titulo")
	filme.titulo_original.DbValue = rs("titulo_original")
	filme.sinopse.DbValue = rs("sinopse")
	filme.atores.DbValue = rs("atores")
	filme.diretor.Upload.DbValue = rs("diretor")
	filme.extra.DbValue = rs("extra")
	filme.informacoes.DbValue = rs("informacoes")
	filme.lancamento.DbValue = rs("lancamento")
	filme.locacao.DbValue = rs("locacao")
	filme.quantidade.DbValue = rs("quantidade")
	filme.regiao.DbValue = rs("regiao")
End Sub
%><%

' Render row values based on field settings
Sub RenderRow()

	' Call Row Rendering event
	Call filme.Row_Rendering()

	' Common render codes for all row types
	' id_genero

	filme.id_genero.CellCssStyle = ""
	filme.id_genero.CellCssClass = ""

	' titulo
	filme.titulo.CellCssStyle = ""
	filme.titulo.CellCssClass = ""

	' atores
	filme.atores.CellCssStyle = ""
	filme.atores.CellCssClass = ""

	' diretor
	filme.diretor.CellCssStyle = ""
	filme.diretor.CellCssClass = ""

	' lancamento
	filme.lancamento.CellCssStyle = ""
	filme.lancamento.CellCssClass = ""

	' locacao
	filme.locacao.CellCssStyle = ""
	filme.locacao.CellCssClass = ""

	' quantidade
	filme.quantidade.CellCssStyle = ""
	filme.quantidade.CellCssClass = ""
	If filme.RowType = EW_ROWTYPE_VIEW Then ' View row

		' id_genero
		If Not IsNull(filme.id_genero.CurrentValue) And filme.id_genero.CurrentValue <> "" Then
			sSqlWrk = "SELECT [genero] FROM [genero] WHERE [codigo] = " & ew_AdjustSql(filme.id_genero.CurrentValue) & ""
			Set rswrk = conn.Execute(sSqlWrk)
			If Not rswrk.Eof Then
				filme.id_genero.ViewValue = rswrk("genero")
			Else
				filme.id_genero.ViewValue = filme.id_genero.CurrentValue
			End If
			rswrk.Close
			Set rswrk = Nothing
		Else
			filme.id_genero.ViewValue = Null
		End If
		filme.id_genero.CssStyle = ""
		filme.id_genero.CssClass = ""
		filme.id_genero.ViewCustomAttributes = ""

		' titulo
		filme.titulo.ViewValue = filme.titulo.CurrentValue
		filme.titulo.CssStyle = ""
		filme.titulo.CssClass = ""
		filme.titulo.ViewCustomAttributes = ""

		' atores
		filme.atores.ViewValue = filme.atores.CurrentValue
		filme.atores.CssStyle = ""
		filme.atores.CssClass = ""
		filme.atores.ViewCustomAttributes = ""

		' diretor
		If Not IsNull(filme.diretor.Upload.DbValue) Then
			filme.diretor.ViewValue = filme.diretor.Upload.DbValue
			filme.diretor.ImageWidth = EW_THUMBNAIL_DEFAULT_WIDTH
			filme.diretor.ImageHeight = EW_THUMBNAIL_DEFAULT_HEIGHT
			filme.diretor.ImageAlt = ""
		Else
			filme.diretor.ViewValue = ""
		End If
		filme.diretor.CssStyle = ""
		filme.diretor.CssClass = ""
		filme.diretor.ViewCustomAttributes = ""

		' lancamento
		If Not IsNull(filme.lancamento.CurrentValue) Then
			Select Case filme.lancamento.CurrentValue
				Case "0"
					filme.lancamento.ViewValue = "Normal"
				Case "1"
					filme.lancamento.ViewValue = "Lançamento"
				Case "2"
					filme.lancamento.ViewValue = "Box/Series"
				Case "3"
					filme.lancamento.ViewValue = "Acervo"
				Case ""
					filme.lancamento.ViewValue = ""
				Case Else
					filme.lancamento.ViewValue = filme.lancamento.CurrentValue
			End Select
		Else
			filme.lancamento.ViewValue = Null
		End If
		filme.lancamento.CssStyle = ""
		filme.lancamento.CssClass = ""
		filme.lancamento.ViewCustomAttributes = ""

		' locacao
		filme.locacao.ViewValue = filme.locacao.CurrentValue
		filme.locacao.CssStyle = ""
		filme.locacao.CssClass = ""
		filme.locacao.ViewCustomAttributes = ""

		' quantidade
		filme.quantidade.ViewValue = filme.quantidade.CurrentValue
		filme.quantidade.CssStyle = ""
		filme.quantidade.CssClass = ""
		filme.quantidade.ViewCustomAttributes = ""

		' id_genero
		filme.id_genero.HrefValue = ""

		' titulo
		filme.titulo.HrefValue = ""

		' atores
		filme.atores.HrefValue = ""

		' diretor
		If Not IsNull(filme.diretor.Upload.DbValue) Then
			filme.diretor.HrefValue = "ewbv60.asp?fn=" & Server.URLEncode(ew_UploadPathEx(False, "../dvd/") & ew_IIf(filme.diretor.ViewValue<>"", filme.diretor.ViewValue, filme.diretor.CurrentValue))
			If filme.Export <> "" Then filme.diretor.HrefValue = ew_ConvertFullUrl(filme.diretor.HrefValue)
		Else
			filme.diretor.HrefValue = ""
		End If

		' lancamento
		filme.lancamento.HrefValue = ""

		' locacao
		filme.locacao.HrefValue = ""

		' quantidade
		filme.quantidade.HrefValue = ""
	ElseIf filme.RowType = EW_ROWTYPE_ADD Then ' Add row
	ElseIf filme.RowType = EW_ROWTYPE_EDIT Then ' Edit row
	ElseIf filme.RowType = EW_ROWTYPE_SEARCH Then ' Search row
	End If

	' Call Row Rendered event
	Call filme.Row_Rendered()
End Sub
%><%

' Set up Starting Record parameters based on Pager Navigation
Sub SetUpStartRec()
	Dim nPageNo

	' Exit if nDisplayRecs = 0
	If nDisplayRecs = 0 Then Exit Sub

	' Check for a START parameter
	If Request.QueryString(EW_TABLE_START_REC).Count > 0 Then
		nStartRec = Request.QueryString(EW_TABLE_START_REC)
		filme.StartRecordNumber = nStartRec
	ElseIf Request.QueryString(EW_TABLE_PAGE_NO).Count > 0 Then
		nPageNo = Request.QueryString(EW_TABLE_PAGE_NO)
		If IsNumeric(nPageNo) Then
			nStartRec = (nPageNo-1)*nDisplayRecs+1
			If nStartRec <= 0 Then
				nStartRec = 1
			ElseIf nStartRec >= ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1 Then
				nStartRec = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1
			End If
			filme.StartRecordNumber = nStartRec
		Else
			nStartRec = filme.StartRecordNumber
		End If
	Else
		nStartRec = filme.StartRecordNumber
	End If

	' Check if correct start record counter
	If Not IsNumeric(nStartRec) Or nStartRec = "" Then ' Avoid invalid start record counter
		nStartRec = 1 ' Reset start record counter
		filme.StartRecordNumber = nStartRec
	ElseIf CLng(nStartRec) > CLng(nTotalRecs) Then ' Avoid starting record > total records
		nStartRec = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1 ' Point to last page first record
		filme.StartRecordNumber = nStartRec
	ElseIf (nStartRec-1) Mod nDisplayRecs <> 0 Then
		nStartRec = ((nStartRec-1)\nDisplayRecs)*nDisplayRecs+1 ' Point to page boundary
		filme.StartRecordNumber = nStartRec
	End If
End Sub
%><%

' Page Load event
Sub Page_Load()

'***Response.Write "Page Load"
End Sub

' Page Unload event
Sub Page_Unload()

'***Response.Write "Page Unload"
End Sub
%>

Basicamente são essas alterações que estou tentando implementar e não venho tendo sucesso, procurei muito por um fórum ativo com pessoas que tenham boa vontade de ajudar e acabei parando aqui no IM, foi o unico que alguém (algumas pessoas) respondeu...

 

Só tenho a agradecer mesmo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Me diga uma coisa, como voce fez para suas paginas ficarem tao cheias de codigos se ainda nao esta funcionando nem a parte que grava no db

 

Tente simplifica-las inclusive com o upload junto a pagina de cadastros

 

Melhor mesmo esquecer o que ta ai e começar do começo, ta muito complexa e na minha opiniao desnecessariamente

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

A página ja está funcionando e ja roda tudo normalmente, o problema é quando coloco a condição de verificar antes de cadastrar

Está cadastrando corretamente entao?

 

E como está esta parte atualmente? Deve ser coisa simples pois se cadastra deve dar para testar antes

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rodrigo F.    0

Rodrigo F.
Postado

Eu ja postei o codigo da pagina de cadastro de filmes:

 

<%
Const EW_PAGE_ID = "add"
Const EW_TABLE_NAME = "filme"
%>
<!--#include file="ewcfg60.asp"-->
<!--#include file="filmeinfo.asp"-->
<!--#include file="generoinfo.asp"-->
<!--#include file="aspfn60.asp"-->
<!--#include file="userfn60.asp"-->
<%
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", "private, no-cache, no-store, must-revalidate"
%>
<%

' Open connection to the database
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open EW_DB_CONNECTION_STRING
%>
<%

' Common page loading event (in userfn60.asp)
Call Page_Loading()
%>
<%

' Page load event, used in current page
Call Page_Load()
%>
<%
Response.Buffer = True

' Load key values from QueryString
Dim bCopy
bCopy = True
If Request.QueryString("id_filme").Count > 0 Then
	filme.id_filme.QueryStringValue = Request.QueryString("id_filme")
Else
	bCopy = False
End If

' Create form object
Dim objForm
Set objForm = ew_GetUploadObj()

' Process form if post back
If objForm.GetValue("a_add")&"" <> "" Then
	filme.CurrentAction = objForm.GetValue("a_add") ' Get form action
	Call GetUploadFiles() ' Get upload files
	Call LoadFormValues() ' Load form values

' Not post back
Else
	If bCopy Then
		filme.CurrentAction = "C" ' Copy Record
	Else
		filme.CurrentAction = "I" ' Display Blank Record
		Call LoadDefaultValues() ' Load default values
	End If
End If

' Close form object
Set objForm = Nothing

' Perform action based on action code
Select Case filme.CurrentAction
	Case "I" ' Blank record, no action required
	Case "C" ' Copy an existing record
		If Not LoadRow() Then ' Load record based on key
			Session(EW_SESSION_MESSAGE) = "Registros nao encontrados" ' No record found
			Call Page_Terminate(filme.ReturnUrl) ' Clean up and return
		End If
	Case "A" ' Add new record
		filme.SendEmail = True ' Send email on add success
		If AddRow() Then ' Add successful
			Session(EW_SESSION_MESSAGE) = "Registro Adicionado com Sucesso" ' Set up success message
			Call Page_Terminate(filme.KeyUrl(filme.ReturnUrl, "")) ' Clean up and return
		Else
			Call RestoreFormValues() ' Add failed, restore form values
		End If
End Select

' Render row based on row type
filme.RowType = EW_ROWTYPE_ADD ' add ' Render add type
Call RenderRow()
%>
<!--#include file="header.asp"-->
<script type="text/javascript">
<!--
var EW_PAGE_ID = "add"; // Page id
//-->
</script>
<script type="text/javascript">
<!--
function ew_ValidateForm(fobj) {
	if (fobj.a_confirm && fobj.a_confirm.value == "F")
		return true;
	var i, elm, aelm, infix;
	var rowcnt = (fobj.key_count) ? Number(fobj.key_count.value) : 1;
	for (i=0; i<rowcnt; i++) {
		infix = (fobj.key_count) ? String(i+1) : "";
		elm = fobj.elements["x" + infix + "_id_genero"];
		if (elm && !ew_HasValue(elm)) {
			if (!ew_OnError(elm, "Preencha o valor para o campo - Categoria"))
				return false;
		}
		elm = fobj.elements["x" + infix + "_titulo"];
		if (elm && !ew_HasValue(elm)) {
			if (!ew_OnError(elm, "Preencha o valor para o campo - Título"))
				return false;
		}
		elm = fobj.elements["x" + infix + "_sinopse"];
		if (elm && !ew_HasValue(elm)) {
			if (!ew_OnError(elm, "Preencha o valor para o campo - Sinopse"))
				return false;
		}
		elm = fobj.elements["x" + infix + "_diretor"];
		if (elm && !ew_CheckFileType(elm.value)) {
			if (!ew_OnError(elm, "File type is not allowed."))
				return false;
		}
		elm = fobj.elements["x" + infix + "_locacao"];
		if (elm && !ew_CheckInteger(elm.value)) {
			if (!ew_OnError(elm, "Incorrect integer - Locaçao"))
				return false;
		}
		elm = fobj.elements["x" + infix + "_quantidade"];
		if (elm && !ew_CheckInteger(elm.value)) {
			if (!ew_OnError(elm, "Incorrect integer - Qtd"))
				return false;
		}
	}
	return true;
}
//-->
</script>
<script type="text/javascript">
<!--
var ew_DHTMLEditors = [];
//-->
</script>
<script type="text/javascript">
<!--
var ew_MultiPagePage = "Page"; // multi-page Page Text
var ew_MultiPageOf = "of"; // multi-page Of Text
var ew_MultiPagePrev = "Prev"; // multi-page Prev Text
var ew_MultiPageNext = "Next"; // multi-page Next Text
//-->
</script>
<script language="JavaScript" type="text/javascript">
<!--
// Write your client script here, no need to add script tags.
// To include another .js script, use:
// ew_ClientScriptInclude("my_javascript.js");
//-->
</script>
<p><span class="aspmaker" style="font-weight:bold">Adicionar: Filmes - Listagem<br><br><a href="<%= filme.ReturnUrl %>"><img src="images/voltar.gif" border="0"></a></span></p>
<%
If Session(EW_SESSION_MESSAGE) <> "" Then ' Mesasge in Session, display
%>
<p><span class="ewmsg"><%= Session(EW_SESSION_MESSAGE) %></span></p>
<%
	Session(EW_SESSION_MESSAGE) = "" ' Clear message in Session
End If
%>
<form name="ffilmeadd" id="ffilmeadd" action="filmeadd.asp" method="post" enctype="multipart/form-data" onSubmit="return ew_ValidateForm(this);">
<p>
<input type="hidden" name="a_add" id="a_add" value="A">
<table class="ewTable">
	<tr class="ewTableRow">
		<td class="ewTableHeader">Categoria<span class='ewmsg'> *</span></td>
		<td<%= filme.id_genero.CellAttributes %>><span id="cb_x_id_genero">
<% If filme.id_genero.SessionValue <> "" Then %>
<div<%= filme.id_genero.ViewAttributes %>><%= filme.id_genero.ViewValue %></div>
<input type="hidden" id="x_id_genero" name="x_id_genero" value="<%= filme.id_genero.CurrentValue %>">
<% Else %>
<select id='x_id_genero' name='x_id_genero'<%= filme.id_genero.EditAttributes %>>
<!--option value=''>Selecione</option-->
<%
If IsArray(filme.id_genero.EditValue) Then
	arwrk = filme.id_genero.EditValue
	For rowcntwrk = 0 To UBound(arwrk, 2)
		If arwrk(0, rowcntwrk)&"" = filme.id_genero.CurrentValue&"" Then
			selwrk = " selected"
		Else
			selwrk = ""
		End If
%>
<option value="<%= Server.HtmlEncode(arwrk(0, rowcntwrk)&"") %>"<%= selwrk %>>
<%= arwrk(1, rowcntwrk) %></option>
<%
	Next
End If
%>
</select>
<% End If %>
</span></td>
	</tr>
	<tr class="ewTableAltRow">
		<td class="ewTableHeader">Título<span class='ewmsg'> *</span></td>
		<td<%= filme.titulo.CellAttributes %>><span id="cb_x_titulo">
<input type="text" name="x_titulo" id="x_titulo" title="" size="50" maxlength="255" value="<%= filme.titulo.EditValue %>"<%= filme.titulo.EditAttributes %>>
</span></td>
	</tr>
	<tr class="ewTableRow">
		<td class="ewTableHeader">Sinopse<span class='ewmsg'> *</span></td>
		<td<%= filme.sinopse.CellAttributes %>><span id="cb_x_sinopse">
<textarea name="x_sinopse" id="x_sinopse" cols="60" rows="8"<%= filme.sinopse.EditAttributes %>><%= filme.sinopse.EditValue %></textarea>
</span></td>
	</tr>
	<tr class="ewTableAltRow">
		<td class="ewTableHeader">Tipo</td>
		<td<%= filme.lancamento.CellAttributes %>><span id="cb_x_lancamento">
<select id='x_lancamento' name='x_lancamento'<%= filme.lancamento.EditAttributes %>>
<!--option value=''>Selecione</option-->
<%
If IsArray(filme.lancamento.EditValue) Then
	arwrk = filme.lancamento.EditValue
	For rowcntwrk = 0 To UBound(arwrk, 2)
		If arwrk(0, rowcntwrk)&"" = filme.lancamento.CurrentValue&"" Then
			selwrk = " selected"
		End If
%>
<option value="<%= Server.HtmlEncode(arwrk(0, rowcntwrk)&"") %>" selected="selected"<%= selwrk %>>
<%= arwrk(1, rowcntwrk) %></option>
<%
	Next
End If
%>
</select>
</span></td>
	</tr>
	</table>
<p>
<input type="submit" name="btnAction" id="btnAction" value="	Gravar   ">
</form>
<!--#include file="footer.asp"-->
<script language="JavaScript" type="text/javascript">
<!--
// Write your table-specific startup script here
// document.write("page loaded");
//-->
</script>
<%

' If control is passed here, simply terminate the page without redirect
Call Page_Terminate("")

' -----------------------------------------------------------------
'  Subroutine Page_Terminate
'  - called when exit page
'  - clean up ADO connection and objects
'  - if url specified, redirect to url, otherwise end response
'
Sub Page_Terminate(url)

	' Page unload event, used in current page
	Call Page_Unload()

	' Global page unloaded event (in userfn60.asp)
	Call Page_Unloaded()
	conn.Close ' Close Connection
	Set conn = Nothing
	Set filme = Nothing

	' Go to url if specified
	If url <> "" Then
		Response.Clear
		Response.Redirect url
	End If

	' Terminate response
	Response.End
End Sub

'
'  Subroutine Page_Terminate (End)
' ----------------------------------------

%>
<%

' Function Get upload files
Function GetUploadFiles()

	' Get upload data
		filme.diretor.Upload.Index = objForm.Index
		If filme.diretor.Upload.UploadFile() Then

			' No action required
		Else
			Response.Write filme.diretor.Upload.Message
			Response.End
		End If
End Function
%>
<%

' Load default values
Function LoadDefaultValues()
	filme.diretor.CurrentValue = Null ' Clear file related field
	filme.lancamento.CurrentValue = 0
	filme.locacao.CurrentValue = 0
	filme.quantidade.CurrentValue = 0
End Function
%>
<%

' Load form values
Function LoadFormValues()

	' Load from form
	filme.id_genero.FormValue = objForm.GetValue("x_id_genero")
	filme.titulo.FormValue = objForm.GetValue("x_titulo")
	filme.sinopse.FormValue = objForm.GetValue("x_sinopse")
	filme.atores.FormValue = objForm.GetValue("x_atores")
	filme.lancamento.FormValue = objForm.GetValue("x_lancamento")
	filme.locacao.FormValue = objForm.GetValue("x_locacao")
	filme.quantidade.FormValue = objForm.GetValue("x_quantidade")
End Function

' Restore form values
Function RestoreFormValues()
	filme.id_genero.CurrentValue = filme.id_genero.FormValue
	filme.titulo.CurrentValue = filme.titulo.FormValue
	filme.sinopse.CurrentValue = filme.sinopse.FormValue
	filme.atores.CurrentValue = filme.atores.FormValue
	filme.lancamento.CurrentValue = filme.lancamento.FormValue
	filme.locacao.CurrentValue = filme.locacao.FormValue
	filme.quantidade.CurrentValue = filme.quantidade.FormValue
End Function
%>
<%

' Load row based on key values
Function LoadRow()
	Dim rs, sSql, sFilter
	sFilter = filme.SqlKeyFilter
	If Not IsNumeric(filme.id_filme.CurrentValue) Then
		LoadRow = False ' Invalid key, exit
		Exit Function
	End If
	sFilter = Replace(sFilter, "@id_filme@", ew_AdjustSql(filme.id_filme.CurrentValue)) ' Replace key value

	' Call Row Selecting event
	Call filme.Row_Selecting(sFilter)

	' Load sql based on filter
	filme.CurrentFilter = sFilter
	sSql = filme.SQL
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open sSql, conn
	If rs.Eof Then
		LoadRow = False
	Else
		LoadRow = True
		rs.MoveFirst
		Call LoadRowValues(rs) ' Load row values

		' Call Row Selected event
		Call filme.Row_Selected(rs)
	End If
	rs.Close
	Set rs = Nothing
End Function

' Load row values from recordset
Sub LoadRowValues(rs)
	filme.id_filme.DbValue = rs("id_filme")
	filme.id_genero.DbValue = rs("id_genero")
	filme.dia.DbValue = rs("dia")
	filme.mes.DbValue = rs("mes")
	filme.ano.DbValue = rs("ano")
	filme.titulo.DbValue = rs("titulo")
	filme.titulo_original.DbValue = rs("titulo_original")
	filme.sinopse.DbValue = rs("sinopse")
	filme.atores.DbValue = rs("atores")
	filme.diretor.Upload.DbValue = rs("diretor")
	filme.extra.DbValue = rs("extra")
	filme.informacoes.DbValue = rs("informacoes")
	filme.lancamento.DbValue = rs("lancamento")
	filme.locacao.DbValue = rs("locacao")
	filme.quantidade.DbValue = rs("quantidade")
	filme.regiao.DbValue = rs("regiao")
End Sub
%>
<%

' Render row values based on field settings
Sub RenderRow()

	' Call Row Rendering event
	Call filme.Row_Rendering()

	' Common render codes for all row types
	' id_genero

	filme.id_genero.CellCssStyle = ""
	filme.id_genero.CellCssClass = ""

	' titulo
	filme.titulo.CellCssStyle = ""
	filme.titulo.CellCssClass = ""

	' sinopse
	filme.sinopse.CellCssStyle = ""
	filme.sinopse.CellCssClass = ""

	' atores
	filme.atores.CellCssStyle = ""
	filme.atores.CellCssClass = ""

	' diretor
	filme.diretor.CellCssStyle = ""
	filme.diretor.CellCssClass = ""

	' lancamento
	filme.lancamento.CellCssStyle = ""
	filme.lancamento.CellCssClass = ""

	' locacao
	filme.locacao.CellCssStyle = ""
	filme.locacao.CellCssClass = ""

	' quantidade
	filme.quantidade.CellCssStyle = ""
	filme.quantidade.CellCssClass = ""
	If filme.RowType = EW_ROWTYPE_VIEW Then ' View row
	ElseIf filme.RowType = EW_ROWTYPE_ADD Then ' Add row

		' id_genero
		filme.id_genero.EditCustomAttributes = ""
		If filme.id_genero.SessionValue <> "" Then
			filme.id_genero.CurrentValue = filme.id_genero.SessionValue
		If Not IsNull(filme.id_genero.CurrentValue) And filme.id_genero.CurrentValue <> "" Then
			sSqlWrk = "SELECT [genero] FROM [genero] WHERE [codigo] = " & ew_AdjustSql(filme.id_genero.CurrentValue) & ""
			Set rswrk = conn.Execute(sSqlWrk)
			If Not rswrk.Eof Then
				filme.id_genero.ViewValue = rswrk("genero")
			Else
				filme.id_genero.ViewValue = filme.id_genero.CurrentValue
			End If
			rswrk.Close
			Set rswrk = Nothing
		Else
			filme.id_genero.ViewValue = Null
		End If
		filme.id_genero.CssStyle = ""
		filme.id_genero.CssClass = ""
		filme.id_genero.ViewCustomAttributes = ""
		Else
		sSqlWrk = "SELECT [codigo], [genero] FROM [genero]"
		Set rswrk = Server.CreateObject("ADODB.Recordset")
		rswrk.Open sSqlWrk, conn
		If Not rswrk.Eof Then
			arwrk = rswrk.GetRows
		Else
			arwrk = ""
		End If
		rswrk.Close
		Set rswrk = Nothing
		arwrk = ew_AddItemToArray(arwrk, 0, Array("", "Selecione"))
		filme.id_genero.EditValue = arwrk
		End If

		' titulo
		filme.titulo.EditCustomAttributes = ""
		filme.titulo.EditValue = ew_HtmlEncode(filme.titulo.CurrentValue)

		' sinopse
		filme.sinopse.EditCustomAttributes = ""
		filme.sinopse.EditValue = filme.sinopse.CurrentValue

		' atores
		filme.atores.EditCustomAttributes = ""
		filme.atores.EditValue = ew_HtmlEncode(filme.atores.CurrentValue)

		' diretor
		filme.diretor.EditCustomAttributes = ""
		filme.diretor.EditValue = filme.diretor.CurrentValue

		' lancamento
		filme.lancamento.EditCustomAttributes = ""
		Redim arwrk(1, 3)
		arwrk(0, 1) = "1"
		arwrk(1, 1) = "Lançamento"
		arwrk(0, 2) = "2"
		arwrk(1, 2) = "Box/Series"
		arwrk(0, 3) = "3"
		arwrk(1, 3) = "Acervo"
		arwrk = ew_AddItemToArray(arwrk, 0, Array("", "Selecione"))
		filme.lancamento.EditValue = arwrk

		' locacao
		filme.locacao.EditCustomAttributes = ""
		filme.locacao.EditValue = filme.locacao.CurrentValue

		' quantidade
		filme.quantidade.EditCustomAttributes = ""
		filme.quantidade.EditValue = filme.quantidade.CurrentValue
	ElseIf filme.RowType = EW_ROWTYPE_EDIT Then ' Edit row
	ElseIf filme.RowType = EW_ROWTYPE_SEARCH Then ' Search row
	End If

	' Call Row Rendered event
	Call filme.Row_Rendered()
End Sub
%>
<%

' Add record
Function AddRow()
	On Error Resume Next
	Dim rs, sSql, sFilter
	Dim rsnew
	Dim bCheckKey, sSqlChk, sWhereChk, rsChk
	Dim bInsertRow

	' Check for duplicate key
	bCheckKey = True
	sFilter = filme.SqlKeyFilter
	If filme.id_filme.CurrentValue = "" Or IsNull(filme.id_filme.CurrentValue) Then
		bCheckKey = False
	Else
		sFilter = Replace(sFilter, "@id_filme@", ew_AdjustSql(filme.id_filme.CurrentValue)) ' Replace key value
	End If
	If Not IsNumeric(filme.id_filme.CurrentValue) Then
		bCheckKey = False
	End If
	If bCheckKey Then
		Set rsChk = filme.LoadRs(sFilter)
		If Not (rsChk Is Nothing) Then
			Session(EW_SESSION_MESSAGE) = "Duplicate value for primary key"
			rsChk.Close
			Set rsChk = Nothing
			AddRow = False
			Exit Function
		End If
	End If

	' Add new record
	sFilter = "(0 = 1)"
	filme.CurrentFilter = sFilter
	sSql = filme.SQL
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.CursorLocation = EW_CURSORLOCATION
	rs.Open sSql, conn, 1, 2
	rs.AddNew
	If Err.Number <> 0 Then
		Session(EW_SESSION_MESSAGE) = Err.Description
		rs.Close
		Set rs = Nothing
		AddRow = False
		Exit Function
	End If

	' Field id_genero
	Call filme.id_genero.SetDbValue(filme.id_genero.CurrentValue, Null)
	rs("id_genero") = filme.id_genero.DbValue

	' Field titulo
	Call filme.titulo.SetDbValue(filme.titulo.CurrentValue, Null)
	rs("titulo") = filme.titulo.DbValue

	' Field sinopse
	Call filme.sinopse.SetDbValue(filme.sinopse.CurrentValue, Null)
	rs("sinopse") = filme.sinopse.DbValue

	' Field atores
	Call filme.atores.SetDbValue(filme.atores.CurrentValue, Null)
	rs("atores") = filme.atores.DbValue

	' Field diretor
	Call filme.diretor.Upload.SaveToSession() ' Save file value to Session
	filme.diretor.Upload.DbValue = rs("diretor") ' Get original value
	If IsNull(filme.diretor.Upload.Value) Then
		rs("diretor") = Null
	Else
		rs("diretor") = ew_UploadFileNameEx(ew_UploadPathEx(True, "../dvd/"), filme.diretor.Upload.FileName)
	End If
	filme.diretor.ImageWidth = 138 ' Resize width
	filme.diretor.ImageHeight = 195 ' Resize height

	' Field lancamento
	Call filme.lancamento.SetDbValue(filme.lancamento.CurrentValue, Null)
	rs("lancamento") = filme.lancamento.DbValue

	' Field locacao
	Call filme.locacao.SetDbValue(filme.locacao.CurrentValue, Null)
	rs("locacao") = filme.locacao.DbValue

	' Field quantidade
	Call filme.quantidade.SetDbValue(filme.quantidade.CurrentValue, Null)
	rs("quantidade") = filme.quantidade.DbValue

	' Check recordset update error
	If Err.Number <> 0 Then
		Session(EW_SESSION_MESSAGE) = Err.Description
		rs.Close
		Set rs = Nothing
		AddRow = False
		Exit Function
	End If

	' Call Row Inserting event
	bInsertRow = filme.Row_Inserting(rs)
	If bInsertRow Then

		' Field diretor
		If Not IsNull(filme.diretor.Upload.Value) Then
			Call filme.diretor.Upload.RestoreFromSession() ' Restore original value
			Call filme.diretor.Upload.Resize(filme.diretor.ImageWidth, filme.diretor.ImageHeight, 1)
		End If
		If Not IsNull(filme.diretor.Upload.Value) Then Call ew_SaveFile(ew_UploadPathEx(True, "../dvd/"), rs("diretor"), filme.diretor.Upload.Value)

		' Clone new rs object
		Set rsnew = ew_CloneRs(rs)
		rs.Update
		If Err.Number <> 0 Then
			Session(EW_SESSION_MESSAGE) = Err.Description
			AddRow = False
		Else
			AddRow = True
		End If
	Else
		rs.CancelUpdate
		If filme.CancelMessage <> "" Then
			Session(EW_SESSION_MESSAGE) = filme.CancelMessage
			filme.CancelMessage = ""
		Else
			Session(EW_SESSION_MESSAGE) = "Insert cancelled"
		End If
		AddRow = False
	End If
	rs.Close
	Set rs = Nothing
	If AddRow Then
		filme.id_filme.DbValue = rsnew("id_filme")

		' Call Row Inserted event
		Call filme.Row_Inserted(rsnew)
	End If

	' Field diretor
	Call filme.diretor.Upload.RemoveFromSession() ' Remove file value from Session
	If IsObject(rsnew) Then
		rsnew.Close
		Set rsnew = Nothing
	End If
End Function
%>
<%

' Page Load event
Sub Page_Load()

'***Response.Write "Page Load"
End Sub

' Page Unload event
Sub Page_Unload()

'***Response.Write "Page Unload"
End Sub
%>

O que está faltando é que haja uma condição para o cadastro ser efetuado... Não permitindo assim titulos repetidos...

Compartilhar este post

Link para o post
Compartilhar em outros sites

desisto    0

desisto
Postado

rodrigo, nao precisa postar o memso codigo varias vezes, o topico vai ficar imenso e cansativo

 

você fez ou nao o que eu postei?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

E como está esta parte atualmente? Deve ser coisa simples pois se cadastra deve dar para testar antes

Vamos nos concentrar apenas onde está o problema

 

Voce postar sua pagina toda a cada instante nao está ajudando muito

 

Como está o trecho que tem o problema, apenas a aparte qeu insere

Compartilhar este post

Link para o post
Compartilhar em outros sites

terra    1

terra
Postado

oi,

 

 

CPF = False

 

Do While Not rs.EOF

 

If rs("CPF") = Trim(Request.Form("cpf")) Then

 

CPF = True

 

End If

 

rs.MoveNext

 

Loop

 

If CPF = True Then

 

Response.Write("<br><br><p align='center'>Este número CPF já esta cadastrado. para tentar novamente <a href='java script:history.go(-1)'>Clique aqui</a>! .</p>")

 

espero estar contribuindo

 

valeu

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito