Click here to Skip to main content
15,887,485 members
Home / Discussions / Web Development
   

Web Development

 
GeneralUse dll in web apllication but dllhost shutdown Pin
Anonymous28-Mar-05 17:24
Anonymous28-Mar-05 17:24 
GeneralStream live video in internet explorer. Pin
Narayana Vivek28-Mar-05 9:08
Narayana Vivek28-Mar-05 9:08 
Generallink get disconnected on accessing WebServices. Pin
Bobby.NET28-Mar-05 5:13
Bobby.NET28-Mar-05 5:13 
GeneralMore confused Pin
27-Mar-05 23:39
suss27-Mar-05 23:39 
GeneralRe: More confused Pin
Yulianto.28-Mar-05 16:08
Yulianto.28-Mar-05 16:08 
GeneralRe: More confused Pin
Member 173387829-Mar-05 6:28
Member 173387829-Mar-05 6:28 
GeneralRe: More confused Pin
Yulianto.29-Mar-05 15:45
Yulianto.29-Mar-05 15:45 
GeneralRe: More confused Pin
Member 173387830-Mar-05 3:39
Member 173387830-Mar-05 3:39 
I bring you code. So you can se it.

Thanks
Erik Gjertsen

<%@ LANGUAGE="VBScript"%><br />
<br />
<!-- #include file="IncludeThis.asp" //--><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>

GeneralRe: More confused Pin
Yulianto.31-Mar-05 15:36
Yulianto.31-Mar-05 15:36 
GeneralSecurity Application Block Pin
Ramya Kappini27-Mar-05 21:20
Ramya Kappini27-Mar-05 21:20 
Generaljavabean: cannot find symbol Pin
Anonymous26-Mar-05 21:36
Anonymous26-Mar-05 21:36 
QuestionHow Can I Send Free E-Mail Using CDONTS Pin
Member 183249126-Mar-05 21:22
Member 183249126-Mar-05 21:22 
AnswerRe: How Can I Send Free E-Mail Using CDONTS Pin
Yulianto.27-Mar-05 14:37
Yulianto.27-Mar-05 14:37 
QuestionWhat would be the best solution Pin
j45mw26-Mar-05 4:08
j45mw26-Mar-05 4:08 
GeneralSpeech application problems on the south of France Pin
Member 167953425-Mar-05 21:03
Member 167953425-Mar-05 21:03 
Generalinclude files and event handling Pin
gagirl_4325-Mar-05 9:06
gagirl_4325-Mar-05 9:06 
GeneralRe: include files and event handling Pin
Roger Wright26-Mar-05 4:14
professionalRoger Wright26-Mar-05 4:14 
GeneralRe: include files and event handling Pin
gagirl_4328-Mar-05 3:43
gagirl_4328-Mar-05 3:43 
GeneralRe: include files and event handling Pin
Jesse Evans23-Mar-06 9:27
Jesse Evans23-Mar-06 9:27 
GeneralRe: include files and event handling Pin
gagirl_4323-Mar-06 13:55
gagirl_4323-Mar-06 13:55 
GeneralRe: include files and event handling Pin
Jesse Evans24-Mar-06 6:03
Jesse Evans24-Mar-06 6:03 
Questionhow to send and receive sms from internet Pin
govindnaroji25-Mar-05 7:23
govindnaroji25-Mar-05 7:23 
Questionasp:button image? Pin
bizjosh25-Mar-05 0:19
bizjosh25-Mar-05 0:19 
General[ASP.net / C#] Checkbox Checked Always false Pin
Jaymz66624-Mar-05 23:57
Jaymz66624-Mar-05 23:57 
GeneralRe: [ASP.net / C#] Checkbox Checked Always false Pin
Jeff Martin28-Mar-05 7:38
Jeff Martin28-Mar-05 7:38 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.