|
Declare the variable with Dim intNumber. Have you declare that?
<italic>Work hard, Work effectively and a bit of luck is the key to success.
|
|
|
|
|
Thanks
Erik Gjertsen
<%@ LANGUAGE="VBScript"%><br />
<br />
<br />
<%<br />
Dim rso<br />
Dim strAction<br />
Dim intMemberId<br />
Dim sqlStatement<br />
Dim strFirstname<br />
Dim strLastname<br />
Dim strAddress<br />
Dim intPostalCode<br />
Dim strPostalOffice<br />
Dim strEmail<br />
Dim ErrorMessage<br />
Dim strMemberImage<br />
Dim strCategoryid<br />
<br />
ErrorMessage = ""<br />
sqlStatement = ""<br />
strAction = Request.Form("action")<br />
Set rso = Server.CreateObject("ADODB.RecordSet")<br />
If CInt("0" & Request.QueryString("memberid")) <> 0 Then<br />
intMemberId = CInt("0" & Request.QueryString("memberid"))<br />
Call GetMemberInformation()<br />
ElseIf CInt("0" & Request.Form("memberid")) <> 0 Then<br />
intMemberId = CInt("0" & Request.Form("memberid"))<br />
Else<br />
intMemberId = 0<br />
End If<br />
<br />
If REQUEST_METHOD="POST" Then<br />
Select Case strAction<br />
Case "get"<br />
GetMemberInformation()<br />
Case "save"<br />
Call SaveMember()<br />
Case "delete"<br />
Call DeleteMember()<br />
Case "new"<br />
Call NewMember()<br />
Case "upload_image"<br />
Response.Redirect("UploadFile.asp?memberid=" & intMemberId)<br />
End Select<br />
End If<br />
<br />
Private Sub SaveMember()<br />
Dim arrSql(6)<br />
<br />
If "" & Request.Form("firstname") = "" Then ErrorMessage = ErrorMessage & "Fornavn kan ikke være tomt!<br>"<br />
If "" & Request.Form("lastname") = "" Then ErrorMessage = ErrorMessage & "Etternavn kan ikke være tomt!<br>"<br />
If "" & Request.Form("postalcode") = "" Then ErrorMessage = ErrorMessage & "Postnummer kan ikke være tomt!<br>"<br />
If ValidatePostalCode(CInt("0" & Request.Form("postalcode"))) = 0 Then ErrorMessage = ErrorMessage & "Du har ikke tastet inne et gyldig postnummer!<br>"<br />
<br />
If ErrorMessage = "" Then<br />
arrSql(0) = "'" & Request.Form("firstname") & "'"<br />
arrSql(1) = "'" & Request.Form("lastname") & "'"<br />
arrSql(2) = "'" & Request.Form("address") & "'"<br />
arrSql(3) = Request.Form("postalcode")<br />
arrSql(4) = "'" & Request.Form("email") & "'"<br />
arrSql(5) = "'" & Request.Form("CategoryID") & "'"<br />
<br />
<br />
If intMemberId = 0 Then<br />
sqlStatement = "INSERT INTO [Member] (Firstname, Lastname, Address, PostalCode, Email, CategoryID) VALUES (" & arrSql(0) & ", " & arrSql(1) & ", " & arrSql(2) & ", " & arrSql(3) & ", " & arrSql(4) & ", " & arrSql(5)& ")"<br />
Else<br />
sqlStatement = "UPDATE [Member] SET [Firstname]=" & arrSql(0) & ", [Lastname]=" & arrSql(1) & ", [Address]=" & arrSql(2) & ", [PostalCode]=" & arrSql(3) & ", [Email]=" & arrSql(4) & ", [CategoryID]=" & arrSql(5) & " WHERE MemberId=" & intMemberId<br />
End If<br />
<br />
On Error Resume Next<br />
DbConnection.Execute(sqlStatement)<br />
On Error Goto 0<br />
<br />
If intMemberId = 0 Then<br />
sqlStatement = "SELECT @@Identity AS MemberId"<br />
<br />
On Error Resume Next<br />
Set rso = DbConnection.Execute(sqlStatement)<br />
On Error Goto 0<br />
<br />
If Not rso.EOF Then<br />
intMemberId = rso.Fields("MemberId").Value<br />
End If<br />
<br />
Set rso = Nothing<br />
End If<br />
<br />
Call GetMemberInformation()<br />
End If<br />
End Sub<br />
<br />
Private Sub DeleteMember()<br />
sqlStatement = "DELETE FROM Member WHERE MemberId=" & intMemberId<br />
<br />
On Error Resume Next<br />
DbConnection.Execute(sqlStatement)<br />
On Error Goto 0<br />
<br />
Call NewMember()<br />
End Sub<br />
<br />
Private Sub NewMember()<br />
intMemberId = 0<br />
strFirstname = ""<br />
strLastname = ""<br />
strAddress = ""<br />
intPostalCode = "0000"<br />
strPostalOffice = ""<br />
strEmail = ""<br />
strCategoryID = ""<br />
End Sub<br />
<br />
Private Sub GetMemberInformation()<br />
sqlStatement = ""<br />
sqlStatement = sqlStatement & "SELECT m.[Firstname], m.[Lastname], m.[Address], m.[PostalCode], p.[PostalOffice], m.[Email], m.[MemberImage], m.[CategoryID] "<br />
sqlStatement = sqlStatement & "FROM [Member] m, [Post] p "<br />
sqlStatement = sqlStatement & "WHERE m.[PostalCode]=p.[PostalCode] AND m.[MemberId]=" & intMemberId<br />
<br />
On Error Resume Next<br />
Set rso = DbConnection.Execute(sqlStatement):CheckError(sqlStatement)<br />
On Error Goto 0<br />
<br />
If Not rso.EOF Then<br />
strFirstname = rso.Fields("Firstname").Value<br />
strLastname = rso.Fields("Lastname").Value<br />
strAddress = rso.Fields("Address").Value<br />
intPostalCode = PrepNrAsPostalCode(rso.Fields("PostalCode").Value)<br />
strPostalOffice = rso.Fields("PostalOffice").Value<br />
strEmail = rso.Fields("EMail").Value<br />
strMemberImage = rso.Fields("MemberImage").Value<br />
strCategoryID = rso.Fields("CategoryID").Value<br />
End If<br />
<br />
Set rso = Nothing<br />
End Sub<br />
%><br />
<html><br />
<head><br />
<title>Medlemsdetaljer</title><br />
<br />
<script src="Scripts/Scripts.js" language="javascript"></script><br />
</head><br />
<body><br />
<form name="oForm" id="oForm" method="post" action="<%=SCRIPT_NAME%>"><br />
<h4>Detaljinformasjon<br><br />
<a href="Search.asp">Tilbake</a> </h4><br />
<table border="0" cellpadding="2" cellspacing="2" style="border: solid 1px #000000;"><br />
<tr><br />
<td valign="top"><br />
<table cellpadding="2" cellspacing="2" width="100%" border="0"><br />
<% If ErrorMessage <> "" Then rw("<tr><td colspan=""2""><font class=""ErrorLabel"">" & ErrorMessage & "</font></td></tr>") %><br />
<tr><br />
<td><font class="TextLabel">Velg medlem</font></td><br />
<td><br />
<select name="MemberId" id="MemberId" onchange="doPostPage('get');" class="DropDownList"><br />
<option value="">Velg medlem</option><br />
<%<br />
sqlStatement = "SELECT [MemberId], [Firstname], [Lastname] FROM [Member] ORDER BY Lastname"<br />
<br />
On Error Resume Next<br />
Set rso = DbConnection.Execute(sqlStatement):CheckError(sqlStatement)<br />
On Error Goto 0<br />
<br />
Do While Not rso.EOF<br />
Response.Write("<option value=""" & rso.Fields("MemberId").Value & """")<br />
<br />
If intMemberId = CInt("0" & rso.Fields("MemberId").Value) Then Response.Write("selected") <br />
<br />
rw(">" & rso.Fields("Firstname").Value & " " & rso.Fields("Lastname").Value & "</option>")<br />
rso.MoveNext<br />
Loop<br />
<br />
Set rso = Nothing<br />
%><br />
</select><br />
</td><br />
</tr><br />
<tr><br />
<td><font class="TextLabel">Medlems ID</font></td><br />
<td><input type="text" name="memberid" id="memberid" value="<%=PrepareNumber(intMemberId, 5)%>" class="TextBox" readonly="true"/></td><br />
</tr><br />
<tr><br />
<td><font class="TextLabel">Fornavn</font></td><br />
<td><input type="text" name="firstname" id="firstname" value="<%=strFirstname%>" class="TextBox" /></td><br />
</tr><br />
<tr><br />
<td><font class="TextLabel">Etternavn</font></td><br />
<td><input type="text" name="lastname" id="lastname" value="<%=strLastname%>" class="TextBox" /></td><br />
</tr><br />
<tr><br />
<td><font class="TextLabel">Adresse</font></td><br />
<td><input type="text" name="address" id="address" value="<%=strAddress%>" class="TextBox" /></td><br />
</tr><br />
<tr><br />
<td><font class="TextLabel">Postnummer/sted</font></td><br />
<td><br />
<table cellpadding="0" cellspacing="0" border="0"><br />
<tr><br />
<td><input type="text" name="postalcode" id="postalcode" value="<%=intPostalCode%>" class="TextBox" style="width: 80px;" /></td><br />
<td> </td><br />
<td><input type="text" name="postaloffice" id="postaloffice" value="<%=strPostalOffice%>" class="TextBox" style="width: 166px;" readonly="true" /></td><br />
</tr><br />
</table><br />
</td><br />
</tr><br />
<tr><br />
<td><font class="TextLabel">E-Post</font></td><br />
<td><input type="text" name="email" id="email" value="<%=strEMail%>" class="TextBox" /></td><br />
</tr><br />
<tr><br />
<td>Kategori</td><br />
<td><input type="text" name="CategoryID" id="CategoryID" value="<%=strCategoryID%>" class="TextBox" /></td><br />
</tr><br />
</table><br />
</td><br />
<td valign="top"><br />
<% If strMemberImage <> "" Then %><br />
<img src="MedlemsBilder/<%=strMemberImage%>" border="0" width="200" height="200" alt="" /><br />
<% End If %><br />
</td><br />
</tr><br />
<tr><br />
<td colspan="2"><table border="0" cellpadding="0" cellspacing="0" ID="Table1"><br />
<tr><br />
<td><input type="button" value="Lagre" class="Button" onclick="doPostPage('save');" /></td><br />
<td> </td><br />
<td><input type="button" value="Ny" class="Button" onclick="doPostPage('new');" /></td><br />
<br />
<td> </td><br />
<td><input type="button" value="Slett" class="Button" onclick="doPostPage('delete');" /></td><br />
<td> </td><br />
<td><input type="button" value="Last opp bilde" class="Button" onclick="doPostPage('upload_image');" /></td><br />
<br />
</tr><br />
</table><br />
</td><br />
</tr><br />
</table><br />
<input type="hidden" name="action" id="action" value="" /><br />
</form><br />
</body><br />
</html>
|
|
|
|
|
It's hard to check from your code. I suggest you check the query.
use response.write yourSQlStatement. Good luck.
<italic>Work hard, Work effectively and a bit of luck is the key to success.
|
|
|
|
|
While using Security Application Block, the documentation says that the Security Application Block includes a file SecurityDatabase.sql that generates the script for the particular schema. I don't seem to have the script file. If someone has used Security Application Blocks, please let me know if this script should be run and if so where do I download it.
|
|
|
|
|
Hi, I put the java file test.java in the classes folder under WEB-INF. When I run the jsp that references the javabean, it says "cannot find symbol". The jsp files has this line:
<jsp:usebean id="test" class="test" scope="page">
The class in test.java is test (of course).
The reference in jsp is <%= test.method(value); %>.
What's gone wrong?
|
|
|
|
|
I am web developer and used ASP to develop the website. but still i have a problem with sending E-Mail.
I want to know about free CDONTS E-Mail service. Is there anyone to help me ???
Kanchan Subba
|
|
|
|
|
try this[^]
<italic>Work hard, Work effectively and a bit of luck is the key to success.
|
|
|
|
|
I have a web site that displays a table of records and each line has a microphone icon on it. When the user clicks on that mic icon another web page is opened and it tells the user they may create a dictation. (We have special dictation mics running from a vb.net app that runs from the user's local machine.) We also have an image display program running at the same time and it also runs from the user's machine.
The web app knows what the StudyID is but the vb.net apps don't and I need to be able to pass that StudyID to the users machine so it can be used by the image display program to find the correct images to display while the user is dictating.
I wrote a "faux" activeX (dll) in vb.net that could be placed on the web site and run when the 2nd page is displayed and the studyID could be passed to it and then it would use the study ID and the Process class to cause the image display program to display the correct images, but that would require each user's machine to have the correct security manually setup in .Net Configuration and we don't want to have to do that.
So I am trying to determine if there is a solution to this situation that would require very little security setup on the users machine.
So basically I need a program (probably an ActiveX) that can be run from my web page but then it would start a program on my user's system using data from the web page.
Does this make sense? Could this be done and if so, would it be as easily done as I think it might be.
I'm looking for working suggestions, so any opinions are welcomed.
|
|
|
|
|
I installed SASDK beta 1.1 on my computer with Visual Studio.
But when i try to create speech projects from VS item, le speech application projects wizzard produces error like "Wait for an objet", code 0, and it's unable to execute scripts on htm pages c:\program files\microsoft visual...\...html\1033\default.htm.
I tried configure IE6 without succes.
This wizzard should work on the feature of the application and i cannot excute it because of langage or voice errors on debbugging tool.
Please, if you can help a poor south french guy who need finish a software quickly ..
Bruno
|
|
|
|
|
I have an asp page with various subroutines that I use as an include file. I'm trying to get my onchange event for an input text field to work from this page. This is strictly asp code (<% %> ) not vbscript ( ) because I need to access the database. I haven't been able to get that to work under vbscript. But I also can't get the event to run from the asp page. This is very aggravating. Any help would be greatly appreciated.
I have the include file at the top of the page.
This is the subroutine I want to run.
<%
sub EmailChgd()
dim rsEmp, strSQL
set rsEmp = server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM Users WHERE Email='" & Request.Form("Email") & "' AND Active = true"
rsEmp.Open strSQL,AdjLinkConn,2,2
if rsEmp.EOF then
errmsg = "This user does not exist in the database."
else
if Request.Form("mgrid") = rsEmp("EmployeeId") then
errmsg = "You cannot modify your own record."
else
Session("Email") = Email
end if
end if
rsEmp.Close
set rsEmp = nothing
end sub
%>
This is my input statement.
Email: I am a newbie in ASP, but I thought this should work.
Rhonda
|
|
|
|
|
What you're coding is all VBScript, the difference being that using the <% %> tag causes it to run on the server, while the pair causes execution on the client machine. The ASP code extends the VBScript instruction set.
It's not clear what your intended result is here. It looks like you want to make an error message appear. In order to do so you have to use a Response.Write statement to cause an output at the client.
"If it's Snowbird season, why can't we shoot them?" - Overheard in a bar in Bullhead City
|
|
|
|
|
The errmsg variable is being displayed elsewhere. I'm trying to get the onchange event to run the server side code which is in an include file. So far, I can't get it to do that.
|
|
|
|
|
gagirl_43,
Did you ever get an answer to this question? I'm trying to do the almost the same thing: I want to call a subroutine when the value of an input control changes. I tried using the onchange event, but that only fires if the focus leaves the control, i.e. the user clicks outside of it after changing its contents.
My application requires its users to scan a barcode; the scanner completes the entry by adding an Enter after the data. I don't want them to have to click somewhere else on the page to fire the event.
If I use this input field in a form, it fires off a POST event after the Enter key, refreshing the page, which is NOT what I want. I want to have some way of calling my sub (on the same .asp page).
'til next we type...
HAVE FUN!! -- Jesse
|
|
|
|
|
Hey Jesse,
Sorry I can't be of any help. I never did get an answer and I don't remember what I finally ended up doing. But I'm pretty sure I had to jump thru hoops in order to get what I wanted. 
Rhonda
|
|
|
|
|
Rhonda,
I managed to work out a solution on my own then another person from CP offered a method that works without the complexity of my method.
My method was to trap keystrokes in the text control by adding a handler for the onkeypress event. The handler checks for the ENTER key and calls the appropriate subroutine when it arrives:
<br />
<script language=jscript><br />
function MySub()<br />
{<br />
}<br />
function CheckForEnter()<br />
{<br />
if(event.keyCode == 13)<br />
MySub();<br />
} <br />
</script><br />
<input type="text" onchange="CheckForEnter()"><br />
(Note: for some reason CP is changing OnChange to removed in the above codeblock. Likewise for OnSubmit below.)
The other method is to wrap the entry field in a FORM block, then add a handler for the Form's onSubmit event. The trick is to return false from the event handler; that prevents the form from trying to reload the page:
<br />
<script language=jscript><br />
function MySub()<br />
{<br />
}<br />
</script><br />
<form onsubmit="MySub(); return false;"><br />
<input type="text"><br />
</form><br />
I'm choosing to use the second method; it just seems cleaner.
Thanks for your help.
'til next we type...
HAVE FUN!! -- Jesse
|
|
|
|
|
Hello
I am Govind Naroji from Goa College of Engg.
I am working on a project involving setting up of a news Server for our college (I am using the INN server)
I want to enable sending of news articles to cell phones and also receive messages from a cell phone.
For this I need to send and receive sms from the internet how do I do this??
IS THERE ANY WAY I CAN DO THIS FOR FREE!
|
|
|
|
|
how do i add a image for this asp button
<asp:button id="btnLogin" runat="server" text="Login">
|
|
|
|
|
Hello,
I'm dynamicly filling a table with checkboxes, doing this:
<br />
...<br />
CheckBox chkBox = new CheckBox();<br />
chkBox.ID = "chk" + i.ToString();<br />
chkBox.AutoPostBack=true;<br />
...<br />
As you can see I create Checkboxes with ID's like: chk0, chk1, chk2 etc.
When I select one (or more) checkboxes the page reloads as it should.
However, when I try to read the properties of the checkboxes:
<br />
for (int i = 0 ; i < ; i++)<br />
{<br />
CheckBox c = (CheckBox)FindControl("chk"+i.ToString());<br />
<br />
Response.Write(c.ID);
Response.Write(c.Checked);
<br />
}<br />
Somehow he doesn't store the checked-value (true)
When the page reloads (after selecting a checkbox) the checkbox keeps selected, as it shoulds.
Can anyone help me?
Greetingz,
Eric
|
|
|
|
|
My first thought was that you weren't checking for PostBack until this line...
Jaymz666 wrote:
When the page reloads (after selecting a checkbox) the checkbox keeps selected, as it shoulds.
Which events these code snippets in? It seems like you have an issue with them getting recreated before you check them.
Jeff Martin
My Blog
|
|
|
|
|
Here is my code:
private void Page_Load(object sender, System.EventArgs e)<br />
{<br />
strApp[0] = "Word";<br />
strApp[1] = "Excel";<br />
strApp[2] = "Calculator";<br />
strApp[3] = "Solitaire";<br />
strApp[4] = "Explorer";<br />
<br />
fillTable();
<br />
if (IsPostBack)<br />
{<br />
showCheckbox();<br />
}<br />
}
I also tried to put the FillTable() behind the !IsPostback but then he can't find any checkboxes at all. So I need to 'Fill the table' every postback.
The code to fill the table:
public void fillTable()<br />
{<br />
int numberOfApps = strApp.Length;<br />
<br />
for(int i=0 ; i < numberOfApps ; i++)<br />
{ <br />
TableRow tr = new TableRow();<br />
TableCell tc_box = new TableCell();<br />
TableCell tc_app = new TableCell(); <br />
<br />
CheckBox chkBox = new CheckBox();<br />
chkBox.ID = "chk" + i.ToString();<br />
chkBox.Text = "#"+i.ToString();<br />
chkBox.AutoPostBack=true;<br />
chkBox.EnableViewState=true;
<br />
tc_box.Controls.Add(chkBox);<br />
tc_app.Text =strApp[i];<br />
tr.Cells.Add(tc_box);<br />
tr.Cells.Add(tc_app);<br />
Table1.Rows.Add(tr);<br />
}<br />
}
Works nice . In this case (just for debuggin' sake) I've enabled AutoPostBack. So when I select one checkbox he postsback the page wich wil fire up the showCheckbox() function:
public void showCheckbox()<br />
{<br />
for (int i = 0 ; i < strApp.Length ; i++)<br />
{<br />
CheckBox c; <br />
<br />
c = (CheckBox)FindControl("chk"+i.ToString());<br />
<br />
if (c.Checked==true)<br />
{<br />
Response.Write(c.ID);<br />
Response.Write("Works!");<br />
}<br />
else<br />
{<br />
}<br />
}<br />
}
As you can see I loop through the checkboxes with id's like: chk0, chk1 etc. He finds them! While debugging I can retrieve the checkboxes ID's! But the checked-state is false while he still is checked (true) in the InternetExplorer window.
I think it's got something to do with the postback & refilling the table. As showed above the page puts, everytime the page reloads, new checkboxes in the table. Where he doesn't check wheter the previous boxes are checked or not. Should I use something like a Session-array to store the checkboxes in? If yes, how do I do that?
Greetingz,
Eric
|
|
|
|
|
It is definitely a post back issue. When you fill the table, you are creating all new checkboxes. Instead of having one function that checks all of them, could you change to use the CheckChanged event handler?
<br />
void CheckBox_CheckedChanged(object sender, EventArgs e)<br />
{<br />
CheckBox c = (CheckBox)sender;<br />
if (c.Checked)<br />
{<br />
Response.Write(c.ID);<br />
Response.Write("Works!");<br />
}<br />
}<br />
and add this to your checkbox setup...
<br />
CheckBox chkBox = new CheckBox();<br />
chkBox.ID = "chk" + i.ToString();<br />
chkBox.Text = "#" + i.ToString();<br />
chkBox.AutoPostBack = true;<br />
chkBox.EnableViewState = true;
chkBox.CheckedChanged += CheckBox_CheckedChanged;<br />
Jeff Martin
My Blog
|
|
|
|
|
hi everyone,
I am NOT a javascript programmer, but like to do some web development.
How can I do the same as yahoo does in its compose box's, that is by giving a "Add Bcc" button, and as you click it, a new Bcc textfield is added to the webpage.
thanks in advance
|
|
|
|
|
<code><Script>
function display()
{
frm.strImage.style.display="";
}
</script>
<body>
<form id="frm">
<input name="Button" type="button" value="click" onClick="display()">
<input style="display:none" name="strImage" maxlength="100" size="30" >
</form></code>
<italic>Work hard, Work effectively and a bit of luck is the key to success.
|
|
|
|
|
thanks "Yulianto AKA goodmast3r"
just one more thing, how can I edit the function display() so
that I am able to add a textfield whenever the button is clicked.
So that the user can get as many textfields as he wishes.
thanks again
|
|
|
|
|
Basically you have to create a table for that and when the button is clicked, it will add a row to the table.
To add a row:
<code>input_form[0] = '<input name="strName" type="text" id="strName" size="13" >';
var row = detail.insertRow();
var cell = row.insertCell();
cell.innerHTML = input_form[0];</code>
I haven't test it though.
<italic>Work hard, Work effectively and a bit of luck is the key to success.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
